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$vMeh TER: CPATCH.SRCIJPATWRT .B32; 


ERNAL = LONG RELATIVE, 
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NONEXTERNAL = LONG_RELATIVE), 
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DENT = 'v04-000' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

is ALL RIGHTS RESERVED. 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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'® THE a oye IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
hs CORPORATION. 

i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
os SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: PATCH 


ABSTRACT: THIS MODULE CONTAINS THE ROUTINE TO WRITE THE PATCHED IMAGE FILE. 
; ENVIRONMENT : 
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40 . 
$3 : AUTHOR: K.D. MORSE . CREATION DATE: 3-NOV-77 
43 MODIFIED BY: 
45 5 ! V03-006 MCNO166 adel C 23-Apr-1984 
4 § ! Put the pissing " al 7 SYTES. "5° READ to is, the buffer size 
; in NEWRAB, so that we use the stze and not the address. 
4 § ! v03-005 MCNO157 aria del C. Nas 20-Feb-1984 
0 9 ! Replace $READ to x ut file to $010 ince file is user opened. 
1 : Add routine GET_IMAGE_BLOCK to do this. 
fl : i V03-004 mTROO2S Mike Rhodes “hug? 
4 4 ! Add routine WRITE_BINARY 4 support patch th in 
5 5 : absolute mode. 
$ $ ! v03-003 MTROO19 Mike Rhodes 5-Jan-1983 
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16-$ 
14-$ 

Add code to place the DMT (Debug Module/psect Table) between 
vely 


1! ( $ 

1} the DST and GST respectively in the image header in routine : 

1} PATSWRTIMG. ; 

1 i V03-002 MTROO14 Mike Rhodes 9-Sep-1982 ; 

1! Correct the computation of the address of the next header block : 

1! when the number of header blocks change. Also, egded code to F 

1! reserve the eet word of the image header (VBN 1) which is the 3 

: mage type identifier. : 

O68 1 i v03-001 MTROOO7 Mike Rhodes 14-Jun-1982 ; 
"53 1; Use shar 3 system me gages. Affected modules include: $ 
eet DYNMEM. 3 »_ PATBAS. 3 » PATCMD.B32, PAT IHD 832. PATINT.832 $ 

4 : PATIO.B852, PATMAI.B52, PATMSG.MSG, PATWRT.B32, and PATSPA.B32. : 
ig 1 The shared messages are defined by DYNMEM.B832's invocation of : 
0074 1! SHRMSG.REQ and we simeiy Link against these symbols. They are A 
38 ! } declared as external literals below. : 
0077 .% v0207. _ PCG0001 Peter George 02-F EB-1981 : 
43 ’ } Add require statement for LIB$:PATDEF.REQ : 
80 1! v0206 CNHOO017 Chris Hume 10-0c t-1979 12:00 : 
81 1! Added OFP bit to PATSGL_COMFAB. Bonoved Supgeré for /COMMAND. 3 
ORs 1! Added su org for /VOLUME. (PATSTO.B32 te , PATPRE.REQ 01.03, 3 
44 ! PATMAI.8 02.27, CVMSLIBJQUADEF .MAR 01.20) : 
0085 1! v0O205 KDM0008 KATHLEEN D. MORSE 16-0CT-1978 13:13 ; 
Bae : Output updating message to SYSSOUTPUT. (Vv0205) : 
0088 1! v0204  KDM0002 KATHLEEN D. MORSE 25-AUG-1978 13:13 : 
0089 1! Check for ghobal sections with no local copy in the : 
34 } } image. (V0204) : 
009¢ ; MODIFICATIONS: ; 
0094 1: ; 
0096 : : NO DATE PROGRAMMER PURPOSE : 
97 1! F 
0098 1! O1 25-APR-7 K.D. MORSE CONVERT TO NATIVE COMPILER. HY 
099 1! 02 13-JUN-7 K.D. MORSE ALLOW NON-CONTIGUOUS IMAGE FILES ° 
100 1! BUT TRY TO PRESERVE INPUT ATRIBS. : 
O10 1 03 13-JUN-78 K.D. MORSE ADD FAO COUNTS TO SIGNALS. : 
103 1 i-- : 
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PATWRT 16-Sep-1984 00:52: VAX-11 Bliss-32 V4.0-742 P 3 
v04-000 19-808- 1382 99:28:68 DISKSVMSMASTER: CPATCH.SRCIPATWRT.B32:1> (2) 
105 104 ' 
i 5 i TABLE OF CONTENTS: 
§ } ; Sein ROUT INE 
19 i ; CET OUR IBS, WOVALUE. ! Writes out patched image 
\¢ 1 WRITE_BINARY : NOVALUE; ! Writes patched file. 
i 3 F beddietpelp 
i$ a 58 
18 113 LIBRARY 'SYSS$LIBRARY:LIB.L32'; 
19 118 REQUIRE 'SRC$:PATPCT.REQ'; 
0 15 REQUIRE 'SRC$:PREFIX.REQ': 
1 34 REQUIRE 'SRC$:PATPRE.REQ': 
¢ 0 REQUIRE ‘LIB$:PATDEF.REQ'; ! Defines literals 
36 EQUIRE 'LIB$:PATMSG.REQ’: 
4 07 REQUIRE 'SRC$:VXSMAC.REQ’: 
5 980¢ REQUIRE *SRC$:PATGEN.REQ'; 
$ 025 i MACROS: 
8 026 ‘ 
9 027 
0 8 ' 
1 3 | EQUATED SYMBOLS: 
5 31 : 
: i 
4 
5 
6 
7 
8 
9 
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1 
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1 
1 
1 
1 
1 
1 
TERR 
38 ' 3 NUM_OF UPDATES; ! Open vs create indicator 
40 1 3 ! 
41 1 ! EXTERNAL REFERENCES: 
$5 104 } 
4 1041 
a4 1006 EXTERNAL ey th 
45 104 PATSCREMAP : NOVALUE, ! Maps image sections 
46 1044 PATSWRITEFILE, ! Writes message to a file 
47 1045 PATSFAO_PUT, ! Formats message 
48 1066 PATSALLOBLK : NOVALUE, ! Routine to allocate storage 
4 104 G L ! Returns the address of a file name descriptor 
50 ee IMGSDECODE_IHD : ADDRESSING. MODE (GENERAL), ' Decode inage header desc 
51 63 IMGSGET_NERT_ISD : ADDRESSING_MODE (GENERAL); ! Read next image header desc 
2g 1051 EXTERNAL 
54 1 26 PATSGB_ECOLVL : BYTE, ! Eco level for current arch 
2? 105 PATS$GL_CHANUM, ! Channel number of input file 
$ 1054 PATSGL_JNLRAB : for journa e 
5 1055 PATSGL ~NEWVBNAX , i Max image section binary VBN in new file 
58 1938 PATSGL_OLDVBNMX, ! Max image section binary VBN in old file 
59 192 PATSGL_IMGBLKS, ' Number of blocks in new image 
60 1 3 PAT$SGW_IMGVOL : WORD, ; pele tve Volume Number for new image 
61 105 PATSGL_NEWXABALL : BLOCK (,BYTE), ! New image file ALLocation XAB 
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SIDE EFFECTS: 
THE PATCHED IMAGE FILE IS OUTPUT. 


BEGIN 
LITERAL 
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OUT_BUF _BLKS = 10, ! NUMBER OF BLOCKS IN OUTPUT BUFFER 
OUT" BUF-SIZ = OUT_BUF_BLKS * A_PAGE, ' OUTPUT BUFFER SIZE 

NO_MORE™= 0, ! INDICATOR OF NO MORE ISD'S 
FICL_CHAR = &X'FFFF'; ' 


HEADER FILL CHARACTER 


Temporary FAB and RAB blocks to be used when we have to do record I/O on the 
input file instead of $Q10's. 


o o 
SS SRIOARAN SS SHISAF 


LOCAL 


vo 


TMPFAB : SFAB (NAM 
FAC 


PATSGL_OLDNBK, 
GET), 


TMPRAB : $RAB (RBF 
RSZ 
UBF 


1 

1 

1 

1 
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1 

1 
USZ 
FAB FAB): 

LOCAL 
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VBN TO REA 


CUR_VBN D 
BYTES _TO_READ NUMBER OF BYTES TO READ 
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' 

84 ! 
85 MAX_VBN QRITTEN, ! VBN OF NEXT BLOCK TO BE WRITTEN INTO NEW I 
86 ECO_LEVEL_PTR : REF BITVECTOR, ' POINTER TO ECO LEVEL BITS IN IMAGE HEADER 
87 BLK _DIFF, ! DIFFERENCE BETWEEN OLD AND NEW HEADER BLOC 
88 OURTER ' NUMBER OF GLOBAL SYMBOLS 
89 UM_HDR_BLKS, ' NUMBER OF BLOCKS USED IN HEADER 
90 REM_BYTE SIZ, ! NUMBER OF UNUSED BYTES IN CURREN OUTPUT BL 
91 NEW_IHD_PAX, ' MAXIMUM SIZE IN BYTES OF NEW IMAGE HEADER 
3 T_BUF PTR ' POINTER TO OUTPUT BUFFER 
9 NXTBYTE_PTR REF VECTORC,BYTE), ! POINTER TO NEXT BYTE OF OUTPUT BUFFER 
94 ISD_PTR : REF BLOCK(,BYTE), ' POINTER TO CURRENT ISD 
95 ISE_PTR : REF BLOCK(, BYTE), ! POINTER TO CURRENT ISE 
96 NEW_IHD_ PTR : REF BLOCKC BYTE) ' POINTER TO NEW IMAGE HEADER 
97 NEW_IHSYM_PTR : REF BLOCK BYTE}, ' POINTER TO NEW IMAGE HEADER SYMBOL SECTION 

8 Ncw IHPAT PTR : REF BLOCKL,BYTEJ, ' POINTER TO NEW IMAGE HEADER PATCH SECTION 
99 1 NEW_)SD_PTR : REF BLOCK BIEL ' POINTER NEW IMAGE SECTION DESCRIPTOR 

1 IXT_PTR_ : REF anece BYTEJ, ' POINTER TO PATCH COMMAND TEXT BLOCK 

01 1 4 PTR : REF VECTOR BYTE) ' POINTER TO NEXT PATCH COMMAND 
4 1 OLD-IHSYM_PTR : REF BLOCK BYTE); ' POINTER TO OLD IMAGE HEADER SYMBOL SECTION 
o8 IF .PATSGL_FLAGS CPAT$S_ABSOLUTE] ! If the file has been patched in absojute m 
06 THEN ' write the file as a simple binary file. 
0 4 BEGIN ' The file is extracted from the ‘ISE/ISD° | 
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v04-000 DISKSVMSMASTER: CPATCH. SRCIPATWRT. B32, 79° (3) 

; 308 1205 WRITE BINARY (); ! and written to the new file in typical pat ; | 
; 309 1 $ RETURN; i Upon completion of this task return for fu 3] 
; 19 : 4 END; ! patch activity (normal course of action). ; 
: 31 120 lee : 1 
; 1§ 10 i ALLOCATE A BUFFER FOR THE HEADER AND INITIALIZE POINTERS. 3 
; 15 181 IF .PATSGL_IMGHDRCIHDSW_SYMDBGOFF] NEQ 0 : 1 
: " 14 . OLD_IHSYM_PTR=CHSPTR(.PATSGL_IMGHDR, .PATSGL_IMGHDRLIHD$W_SYMDBGOFF J) 

: 319 1 16 OLD_IHSYM_PTR=0 

: 320 101 NEW_IHD_MAX=(, PATSGL” INGHOREINDSB -HDRBLKCNT] +2) * A_PAGE; ! GET BUFFER SIZE 

> 321 1 18 PATSALLOBLK(.NEW_I H ; i ALLOCATE NEW IMAGE HEADER BUFFER 

: é 121 PATSALLOBLK(OUT BUF SIZ, By F_PTR); i ALLOCATE OUTPUT BUFF 

: 383 0 NXT_BYTE_PTR=CHSPTRT.NEW_ tte “PTR70); i INITIALIZE OUTPUT BUFFER POINTER 

: 5 1 y* 

; 326 1 : MOVE IN THE FIXED SIZE PORTION OF THE IMAGE HEADER. 

: 37 4 if WNITIALGZe POINTERS TO PIECES OF THE NEW HEADER. 

; 23 1996 3 NXT BYTE -PTR=CHSMOVE PATSGL Peat tatis S17E}, _*PATSGL_INGHDR, .NXT_BYTE_PTR); 

> 330 1227 2 REM“BYTE-SIZ=A_PAGE - MGHDRLIHD$O_S 

; 3 8 IF NEW. THD_PTRCIHDSW_ gralscoets NEQ 

: 38 9 i a NEW_IHSYM_PTR=CHSPTR(.NEW_IHD_PTR, .NEW_IHD_PTRCIHDSW_SYMDBGOFF J) 

; 335 1 7 NEW_IHD PTR = 0; 

3 $$ ' $7 NEW_IHPAT_PTR=CASPTR(.NEW_IHD_PTR, .NEW_IHD_PTRCIHDSW_PATCHOFF J); 

; 8 1 35 le¢ 

; 6 is NOW MOVE IN THE IMAGE SECTION DESCRIPTORS. 

: 341 1 3, R_BLK ' COUNT THE FIRST HEADER BLOCK 

; 348 1259 Wee “PIRECHEBTAC. batseL ISELHD,0); i INITIALIZE POINTER TO FIRST ISE 

; 1240 2 REM"BYTE_SIZ = .REM_BYTE_SIZ - A_WORD; i LEAVE ROOM FOR IMAGE TPE IDENTIFIER - 

: 4 41 WH WHICE .ISE_PTR NEQA~O i WORD AT END OF BLOCK 

: 4g 1 rk BEGIN 

; ‘7 1 44 1F NUM HDR_BLKS GTR .PATSGL_IMGHDRCIHD$B_HDRBLKCNT]+2 ! CHECK IF HEADER OVERFLOWED BUFFER 

: 349 1 46 SIGNAL (PATS_HDRBLK) ; 

; 350 124 1SD_PTR=CHSPTR(.ISE~ PTR, ISESC_SIZE); ! POINT TO ISD 

> 351 1 48 4 IF T.REM_BYTE_SiZ G i CHECK IF THERE IS ENOUGH ROOM FOR: 

; 3 124 ; (I id RISE PTRCI ESL gliXTISE EQLA 0 i (IF THIS IS LAST ISD, THEN 

: 35 1250 N .ISD_PTR W_SIZE] + A_WORD i THE ISD AND A NO=ORE INDICATOR, 

; 34 31 4 “th ese SISD"PTR epee W7S1ZE})) i OTHERWISE, JUST THE ISD.) 

; 6 1 3g 4 BEGIN ' YES, THEN MOVE IT IN 

; 35 1254 4 NXT_BYTE_ PTR=CHSMOVE (18D D PTRCISDSu S176] D_PTR, .NXT_BYTE_PTR); 

3 38 1255 4 REN"BYTE_SIZ=. nen YTE SIZ - 2180. PTRLISD péu's 12e): 

: 35 8 4 ISE“PTR = .ISE_PTREISESL_NXTISE); '"POINT TO NEXT ISE 

Oe Bee 

: 1260 4 NXT TBvte PTR = CHSFILL(FILL_CHAR, .REM_BYTE -SIZ+A _WORD, .NXT_BYTE_PTR); ! INSERT FILL CHARAC 

; 1261 4 IF TNUM_ADR_BLKS EQL “IF THIS IS"THE FIRST HEADER BLOCK, RESTORE 


c Now UPDATE THE IMAGE HEADER IF THE NUMBER OF HEADER BLOCKS CHANGED. 


if t. PATSGL_IMGHDRCIHDSB_HDRBLKCNTJ NEQ sWUR HDR_BLKS) OR 
(.PATSGL_ “NEWVBNMX NEQ™.PATSGL_OLDVBNMX) 


BEGIN 
144 


! FILE HEADER EXPANDED. ALL THE VBN'S IN THE ISD'S MUST BE CHANGED. 
! THAT IS, THE DIFFERENCE IN THE SIZE OF THE HEADERS MUST BE ADDED 
! TO EVERY VBN IN THE HEADER. 


BLK_DIFF = .NUM_HDR_BLKS = .N 
NEW" 18 PTR’ = CASPTR( NEW IHD_P 
wHICE -NEW_ISD_PTRCISD$SW_SIZE 


EW_IHD_PTRCIHDSB_HDRBLKCNT); 
ma PTR Rs anew. IHD_PTRCIHD$W_SIZE)); 


0009 09 09 09 09 09 SI NIN NINN NINO AAA AOAAO 
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BEGIN 
I aa »NEW_ISD_PTRCISD$V_DZROJ) AND (NOT .NEW_ISD_PTRCISD$V_GBLJ) 


eS ee ne ee ee Eee SE SS | 
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8 
8 
9 
9 sy -1S0 pesec isos. “vend , ee ISD_PTRCISD$L_VBN] + .BLK_DIFF; 
9 NEW_ISD_PTR (. NEW" {S0,P -NEW_ISD_PTRCISDSW_SIZE); 
4 then) ISD “PTAC TSOSU" SIZE) EGL tut CHAR 
9 
9 Compute the Begin ine address of the next header block by rounding 
; up to the next page boundary. then adding the amount of scew into the page. 
9 NEW_ ISD_PTR = ((.NEW_ISD_PTR + A =fAge - 1)/ A_PAGE * A_PAGE) + 
c 4 -NEW-IHD-PTR MOD” A_PAGE; 
405 0 NEW. IHD PInt Hose HDRBLKCNT) = .NUM_HDR_BLK ! RESET NUMBER OF HEADER BLOCKS 
406 DIFF = .BLK_DIFF + ,PATSGL_NEWVBNMX”- BATSGL _OLDVBNMX; 
407 ar “NEW. INSTRe “BTR NEGA 6 
$08 8 THEN 
4 BEGIN 
219 4 i -NEW_IHSYM_PTRCIHSSL_DSTVBN] NEQ 0 
$i¢ 03 NEW_IHSYM_PTRCIHSSL_DSTVBN) = .NEW_IHSYM_PTRCIHSSL_DSTVBN) + .BLK_DIFF; 
2\3 1 if pNEU_INSYR_PTRCINSSL _OATVONS NEQ 0 
$1¢ 18 NEW_IHSYM_PTRCIHSSL_DMTVBN) = .NEW_IHSYM_PTRCIHSSL_DMTVBN) + .BLK_DIFF; 
$18 1? if: MEW _JMSYA_PTAC INSEL 6ST VON) NEQ 0 
$39 7 ae NEW_IHSYM_PTRCIHSSL_GSTVBN) = .NEW_IHSYM_PTRCIHSSL_GSTVBN) + .BLK_DIFF; 


PATWRT 16-5¢ Sep-1 VAX-11 Bliss-32 V4.0-742 Page 8 
04-000 aE eee es ee PS WOMASPERSCPAT CN SkcapaturT.as2ct@” (3 
THEN .NXT_BYTE_PTR = 2 = .PATSGW_IMGTYP; ! THE IMAGE TYPE IDENTIFIER WORD. 
NUM_HDR_BCKS =". NUM_HDR_BLKS + T; ! ONE MORE HEADER BLOCK 
REN-BYTE,S1Z = A_PAGE = K_WORD; i SET NEW BLOCK BYTE COUNT 
NXT_BYTE ork = CHSFILL(N NO, pore A_WORD, .NXT_BYTE 
ie “MOT ROR BAKE Taney FICL CHAR, ~.RER_BYTE_SIZ, chat “ivr ore ! IF THERE IS ONLY ONE HEADER BLOCK, RESTORE 
THEN .NRT_BYTE_PTR = 2 = PATSGU_INGTYP; i THE IMAGE TYPE IDENTIFIER WORD HERE. 
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000 
: § 3 ' i IF .NEW_IHPAT_PTRCIHPSL_PATCOMTXT] NEQ 0 
; $ : 1 am NEW_IHPAT_PTRCIHPSL_PATCOMTXT] = .NEW_IHPAT_PTRCIHPSL_PATCOMTXT] + .BLK_DIFF; 
ag 6 1 § ELSE 
; Q ! ¢ BLK_DIFF = 0; 
. 1 $ le 
; 450 1 NOW COMPUTE THE SIZE OF THE NEW IMAGE FILE. THEN OPEN IT, ALLOCATING THE 
H : 1 : 8 iN NEEDED CONTIGUOUS SPACE. 
; 4 3 1330 Com TXT_PTR = CHSPTR(.PATSGL_TXTLHD, 0); !' POINT TO FIRST COMMAND eH Pa 
; 4 1331 WHITE .COM_TXT_PTR NEQA 0 ! INCREMENT IMAGE sie Fe 
HY : 5 : ¢ dO !' BLOCK OF COMMAND TEXT 
> 1334 PATSGL INGBLKS = PATSGL INGBLKS + 1; 
: 438 5 COM. TXT_PTR = .COM_TXT_PTRLIXT TSt_NXTBLK); ! POINT TO NEXT COMMAND TEXT BLOCK 
; 440 1 § PATSGL_ IMGBLKS = ,PATSGL_IMGBLKS + .BLK_DIFF; ' ADD _IN DIFFERENCE IN HEADER SIZES 
3 o) : 3 PATS$GL—NEWXABALLCXABSL _ACQ) = PATSGL_ IAGBLKS; ! INITIALIZE NUMBER OF BLOCKS TO ALLOCATE 
: 44 1340 IF .PATSGL_FLAGS CPATSS_VOLUME) ! The VOLUME qualifier specifies the RVN 
: tds igen § MEN neg 
: 446 1 rk PATSGL_NEWXABALL CXABS$W_VOL .PATSGW IMGVOL ; ! The Relative Volume Number 
3 447 1344 pArSeL “NEWXABALLCXABS$B_ALN) = = KABSC _LBN; ! To enable XABSW_VOL 
nt ~ 
: 450 1 23 IF (.NUM_OF_UPDATES EQL 0) ! Check number of updates done 
; 451 1348 THEN 
Ro 18 ves 
: 654 1351 “treaee the output image file. Try to, make it a contiguous file if 
; 455 1 26 i the input image file was contiguous, i.e., first try a create with 
3 $28 135 i the same attributes. If the file cannot he created with the same 
; 45 1354 ' attributes, then attempt a second try with contiguous-best-try. If 
3 +38 : 32 i this succeeds, then print an informational message. 
: 460 1 2 PATSGL -NEVKABALL EXABSV 1G) = - PATSGL_OLDF ABEFABSV_CTG); 
: 461 1358 PATSGL_NEWXABA “PA TSGL-OLDFAB pABsy CBT; 
3 re ! 2 3 et (PATSGL_ Mee ONESEREATECrABeoAT ORS _NEWF AB) ) 
: 464 1361 4 ecein ! Attempt a contiguous best try 
; 465 1 ¢ 4 TSGL PE UAABALL CHARON CBT) 
; $98 1365 4 PATSLe core = $CREATE(FA FAB=PAT EF _NEWF AB) ; 
: re ' ¢ 2 PATSGL CERRCODE 
: tes 1 4 SIGNAL (PATS_NONCONTIG+MSGSK_INFO, .PATSGL_ERRCODE, .PATSGL_NEWRABCRABSL_STV]), 
: On 1 ~» 
: 47 1 5 ELSE 
3; 47 1370 PATSGL_ERRCODE=SOPEN(F AB=PATSGL_NEWF AB) ; ' OPEN OUTPUT FILE 
3 $78 ! 4 cas -PATSGL— ERRCODE i SUCCESS ON OPEN OR CREATE? 
: ri ! 74 ELSE SIGNAL (PATS_OPENOUT,1,GETFILDSC(PATSGL_NEWF AB), .PATSGL_NEWFABCFABSL_STS],.PATSGL_NEWRABCRABSL_STV]) 
: 478 1375 BEGIN 


NN 0.00 = 


PATWRT bse Sep-1984 VAX-11 Bliss-32 V4.0-742 e 10 PA) 
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‘a: 1 2 PATSGL ERR QDESSCONNECT(RAB=PATSCL_ NEWRAB); ! CONNECT INPUT FILE 

; é t x PATSGL_ERRCODE i SUCCESS ON CONNECT? 

: 4 ¢ 8 SIGNAL (PATS_OPENOUT, 1, GETFILDSC (PATSGL_NEWFAB) , .PATSGL_NEWRABCRABSL_STS1,.PATSGL_NEWRABLRABSL_STV]) 
: 4 1 4 BEGIN 

: 485 1 4 OF _UP = | ! SET INDICATOR FOR ALREADY CREATED 
: 4 ’ 4 PATSGL_FLAGS PATS$_OUTPUT) = 1; i SET FLAG FILE NOT OPEN 

; 6 1 4 PATSGL_NEWFABLFABSV-ESC) = TRUE 

: 6 1385 4 PATSGL_NEWFABLFABSL-CTX] = RMESC_SETRFM; ' SET MODIFY CODE 

: 4 1 4 PATSGL NEWFABLFABSE-RFM) = FABSC-VAR; i SET VARIABLE LENGTH RECORDS 

: 4 1 4 PATSGL-ERRCODE = S$MODIFY(FAB=PATSGL_NEWFAB); 

; 49 § é IF NOT”. -PATSGL_ERRCODE 

: 49 1390 4 SIGNAL(PATS$_MODIFYERR, 3, .PATSGL_ERRCODE, 

> 49% 1391 4 PATSGL HE Oe CHANSS RSLJ. PATS$GB.NEWNAME 

; 495 % 4 a *PATSOC™ “ERRCODE, .PATSGL_NEWRABLRABSL_STV)); 

i i99 1394 END; 

et 

; sor $7 a "REPORT FILE BEING WRITTEN. 

: 0¢ 1 3 SIGNAL(PATS_WRTFIL*MSGSK_INFO, 2, .PATSGL _NEWNBKCNAMSB_RSLJ, PATSGB_NEWNAME) ; 

Pee Be la 

: 505 1408 _MAKE SURE THE FILE IS OPEN, 

: 507 1404 it “NOT -PATSGL _FLAGS CPAT$S_OUTPUT) 

; 1405 2 OR NOT. ATSGL “FLAGS CPATSS~INPUTJ 

: 509 1406 THEN RETURH ! CAN'T GET AT FILES, GIVE UP 
rm BE 

; \§ 1408 iN Now write out the image binary. 

: 514 1411 3 iSE -PTR=CHSPTR(. PATSGL ISELHD,0); ' POINT TO FIRST ISE 

; 515 141¢ NEW-ISD_PTR = CHSPTR(.NEW_IHD.PTR, .NEW_IHD_PTRCIMDSW_SIZEJ); | POINT TO FIRST NEW ISD 

; 216 141 MAX” VBN7~WRITTEN i NO VBN WRITTEN YET 

; 3 1414 Wi HICE Nree. “PTR NEQA’O i LOOP UNTIL ISE°S ARE EXHAUSTED 

; 13 1416 BEGIN 

: 520 141 1SD_PTR = CHSPTR(. .ISE_PTR, ISESC_SIZE); ! FIND OLD ISD ADDRESS 

; 521 1618 COUNTER = i SET COUNT OF BLOCKS WRITTEN FOR IMAGE SECT 
: g 141 IF (NOT .1SD_PTRCISD$V_DZROJ) A i CHECK FOR NO IMAGE BINA 

; 1420 (.1SD PTRCISDS pi yPEd a _4spsk.us USRSTACK) AND i AND FOR IMA ACK 

: 534 1421 4 TNO TREISD i AND FOR GLOBAL Sect ons WITH 

: 525 14 2 4 cb (tsp aS athy V aciee AND (. 8p _PTRCISDS$L_VBNJ NEQ 0))) ! NO LOCAL COPY 

; 3 1424 & BEGIN 

5 1425 4 14 

; 16 6 4 _SET VBN OF IMAGE SECTION IN OLD AND NEW FILES. 

: 531 14 8 4 R_VBN = 1sp PTRCISDSL_VBN); 

3 : 14 ; 4 CUR VB _NEWRABCRABSL_BKT)~= .NEW_ISD_PTRCISDSL_VBN); 

; 1431 4 lee 

: 535 1432 4 i NOW LOOP TO OUTPUT ALL OF THIS IMAGE SECTION. 


H 7 
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; 14 ; 4 t (THE LOOP 1S IN CASE THE IMAGE SECTION 1S LARGER THAN THE OUTPUT BUFFER.) 
; 1435 4 WHILE .COUNTER NEQ .1SD_PTRLISD$W_PAGCNT) 
: 8% 1 - BEGIN 
: 54 14 IF .ISE_PTRCISESL_MAPVEND] EQLA 0 ! IF THE IMAGE SECTION IS NOT MAPPED 
: 4g 14 THEN i THEN READ IT 
: 54 144 6 BEGIN 
: 544 144 1$4 
; 43 1446 6 i CHECK THAT THE BUFFER IS LARGE ENOUGH TO HOLD ALL OF IMAGE SECTION. 
3 i 1444 if OUT BUF _siZ GTR ((.1SD_PTRLISDS$W_PAGCNTJ-. COUNTER) *A_PAGE) 
: 54 144 BEGIN 
; 550 1209 7 1¢4 
; s 1448 , | BUFFER WAS LARGE ENOUGH. SET UP TO READ ENTIRE IMAGE SECTION. 
: 4 1450 7 BYTES TO_READ = A_PAGE * (.1SD_PTRCISD$W_PAGCNTJ-. COUNTER); 
: 554 1451 7 PAT$GC_NEWRABCRABSW RSz] 2 BYTES TO_READ; 
: 555 14 ; 7 COUNTER = .1SD_PTRLTSD$W_PAGCNTJ; 
3 28 1453 7 ND 
; 38 1685 ‘ an BEGIN 
: 55 1456 7 14+ 
; 560 1489 7 i BUFFER WAS NOT LARGE ENOUGH TO READ ENTIRE IMAGE SECTION. 
; 61 1458 , i THEREFORE, SET COUNTER TO READ TEN BLOCKS. 
; re 1460 7 BYTES_TO_READ = OUT_BUF_SIZ; 
3 564 1461 7 PATSGC_NEWRABCRABSW-RSZJ = OUT_BUF_SIZ; 
: 565 1468 7 COUNTER = .COUNTER ? 10; 
3 $4 1ee7 ? END; 
; 568 1465 6 1o+ 
; 569 1466 6 i NOW READ IMAGE SECTION. IF IMAGE SECTION IS TOO LARGE 
; 70 1467 6 i FOR BUFFER, READ TEN BLOCKS OF IT. 
: 57 1469 5 PATSGL_ERRCODE = GET_IMAGE_BLOCK ( .CUR_VBN 
: 57 1470 6 .OUT BUF PTR 
: 574 1471 6 “BYTES_TO_READ ); 
: 2 1478 : If NOT .PATSGL_ERRCODE 
: 57 1474 6 SIGNAL(PAT$_READERR, 1 GETFILDSC(PATSGL_OLDFAB) , 
: 78 1475 6 .PATSGL_ERRCODE, 0); 
: 1 8 ' 
: 581 1478 6 INITIALIZE THE OUTPUT BUFFER ADDRESS. 
; 14 9 PATSGL_NEWRABLRABSL _RBF J = ,OUT_BUF_PTR; 
: 585 14 ELSE 
; 14 5 6 BEGIN 
; 1485 g i THIS IMAGE SECTION WAS MAPPED, CHECK IF 
; 14 ; i THE ENTIRE SECTION SHOULD BE WRITTEN OR TEN 
i 93 14 i BLOCKS AT A TIME. 
: 592 14 3 5 if OUT_BUF_SIZ GTR ((.ISD_PTRCISD$W_PAGCNT)=.COUNTER)*A PAGE) 
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iF COUNTER NEQ .ISD_PTRCISDSW_PAGCNT) 


BEGIN 
CUR VBN = aABERABSC OKT -VBN] + .COUNTER 


PATSGL NEWRABCRABSL_BKTJ~= .NEW_ISD "PTRCISDSL -VBN] + .COUNTER; 


END; 

'+¢ 

; Now update the pointer to the next highest VBN to be write. 

HF (MAX VBN_WRITTEN LSSU (.NEW_ISD_PTRCISDSL_VBN) + .NEW_ISD_PTRCISD$W_PAGCNTJ)) 
MAX_VBN_WRITTEN = .NEW_ISD_PTRCISDSL_VBN) + .NEW_ISD_PTRCISDS$W_PAGCNT); 


END; 
ISE_PTR = .]SE_PTRCISESL_NXTISE); 
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14 
1499 — lee 
149 i SET THE OUTPUT BUFFER ADDRESS EQUAL 
149 i TO THE STARTING MAPPED ADDRESS PLUS 
1494 i AN OFFSET FOR THE BLOCKS ALREADY WRITTEN 
1499 i OUTPUT THE REST OF THE IMAGE SECTION. 
1499 BEGIN 
$ 

1498 PATSGL_NEWRABCRABSW ast = A_PAGE * 
1499 7 (.NEW_ISD_PTR {sbsi PAGCNT] = .COUNTER) 
1 7 PATSGL_NEWRABCRABSC_RBF) = .ISE PTRCISESL_MAPVST) + 
1501 f A_PAGE * , COUNTER); 
qf COUNTER = TISD_PTRLISD$W_PAGCNT); 
1 ELSE 
5 ? BEGIN 
1507 7 “BUFFER WAS NOT LARGE ENOUGH TO READ 
1508 7 i ENTIRE IMAGE sect ION. THEREFORE, SET 
1309 f _COUNTER TO WRITE TEN BLOCKS. 
1311 7 PATSGL _NEWRABCRABSW fa) = = OUT_BUF_SIZ; 
1 1 7 PATSGL_NEWRABLRABSL _RBF 
1513 7 .ISE_PTRCIS SES MAPVST] + (A _PAGE * .COUNTER); 
1 7 COUNTER =". COONTER + 10: 
151 END; 
1317 : : 

++ 
1318 } _NOW WRITE OUT THE IMAGE SECTION (OR PART OF IT). 
12 1 PATSGL LERRCODE = SWRITE(RAB=PATSGL_NEWRAB) ; 
13 g IF NOT”. PATSGL_ERRCODE 
1524 SIGNAL (PATS rRITEERR, GETF ILDSC(PATSGL_NEUFAB) , 
1525 NEURABLAABS L 318) 
15 6 paTee- “NEWRABLRABSL~STV}); 
1384 . 

tt 
1529 i CHECK TO SEE THAT THE ENTIRE IMAGE SECTION HAS BEEN WRITTEN. 
13 9 i IF NOT, RESET THE VBN'S FOR THE NEXT TEN BLOCKS OF IT. 
1 
ae 
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NEW. ISD_PTR = CHSPTR(.NEW_ISD_PTR, .NEW_ISD_PTRCISD$W_SIZEJ); 
“Now position to the next block of ISD's. 
if” .NEw_1SD_PTRCISDSW. SIZE] EQL FILL_CHAR 
NEW_ISD_PTR = .NEW_IHD PTR + 


aie ((T.NEQ_ISD_PTR = .NEW_IHD_PTR + A_PAGE-1) / A_PAGE) * A_PAGE); 


\¢ 
IN ITIALIZE THE OUTPUT FILE TO TR 7 CATE THE FILE AFTER A PUT. OTHERWISE, PATCH 
: GETS AN NEF ERROR (NOT AT END OF FILE). 


PATSGL. NEWRABLRABSV_TPT) = TRUE; 
oe 


i NOW WRITE OUT THE DEBUG SYMBOL TABLE BLOCKS. 
gg THIS CODE WILL BE CHANGE WHEN PATCH HANDLES SYMBOLS. *ee« 


if (.OLD_IHSYM_PTR NEQA 0) 
HEN 


BEGIN 
Fee ee oP TAL INS OU _PSTOLKS) NEQ 0) AND (.OLD_IHSYM_PTRCIHSSL_DSTVBN] GTR 2) 


COUNTER 
NEW. IHSYM Bip 1ussi _DSTVBN] = .MAX_VBN RIT TEN: 
PATSGL NEGR RABER ABSL~BKT] = .MAX_VBR_WRITTEN 
UR_V OLD THE PTRCIHSSL VEN 3; 
uiICE “COUNTER™ ita -OLD_IHSYM_ PTRLIASSW. semis 
BEGIN 
i"e CHECK THAT THE BUFFER IS LARGE ENOUGH TO HOLD ALL OF IMAGE SECTION. 
iF out. BUF_SIZ GTR ((.OLD_IHSYM_PTRCIHSS$W_DSTBLKSJ-. COUNTER) *A_PAGE) 
BEGIN 
i "BUFFER WAS LARGE ENOUGH. SET UP TO READ ENTIRE IMAGE SECTION. 
i TOREAD = A PAGE» (. OLD. 1HSYM_ PIRCIHSSW_ DSTBLKSJ-. COUNTER); 
PAT$SGC_NEWRABCRABSW_RSZ) BYTE READ: 
NTER = .OLD_IHSYA "PTRCIHS W_D STBERS 


ELSE 
BEGIN 


"BUFFER WAS NOT LARGE ENOUGH TO READ ENTIRE IMAGE SECTION. 
it THEREFORE, SET COUNTER TO READ TEN BLOCKS. 


BYTES TO_READ = OUT BUF SIZ; 
PATSGC NEURABCRABSU- sag] = = OuT_BUF_SIZ; 
COUN NTER = . COUNTER 
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+ 
: NOW READ IMAGE SECTION. IF IMAGE SECTION IS TOO LARGE 
FOR BUFFER, READ TEN BLOCKS OF IT. 


PATSGL_ERRCODE = GET_IMAGE_BLOCK ( .CUR_VBN 
.OUT_BUF PTR 
-BYTES_TO_READ ); 


=SS8S 


fen’ »PATSGL_ERRCODE 
SIGNAL(PATS_READERR, 1, GETFILDSC(PATSGL_OLDFAB), .PATSGL_ERRCODE, 0); 


i ee en 


le 
| INITIALIZE THE OUTPUT BUFFER ADDRESS. 
PATSGL_NEWRABCRABSL_RBF] = .OUT_BUF_PTR; 


!4¢ 
NOW WRITE OUT THE DST (OR PART OF IT). 


PATSGL_ERRCODE = SWRITE(RAB=PATSGL_NEWRAB) ; 
IF NOT -PATSGL_ERRCODE 


SIGNAL(PATS_WRITEERR, 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWRABLRABSL_STS 
lee 
i CHECK TO SEE THAT THE ENTIRE DST HAS BEEN WRITTEN. 
i IF NOT, RESET THE VBN'S FOR THE NEXT TEN BLOCKS OF IT. 
IF, COUNTER NEQ .OLD_IHSYM_PTRCIHSS$W_DSTBLKSJ 


VIBWN 9 OONOULS WN "OOOO uT 


GIN 
CUR VBN = .OLD_IHSYM_PTRCIHSSL_DSTVBN] + ,COUNTER; 
PATSGL_NEWRABCRABSL_BKT) = .NEQ_IHSYM_PTRCIHSSL_DSTVBN) + .COUNTER; 
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740 
03 END — 
04s IF (.MAX_VBN_WRITTEN LSSU (.NEW_IHSYM_PTRCIHSSL_DSTVBNJ + .NEW_IHSYM_PTRCIHS$W_DSTBLKS))) 
me MAX_VBN_WRITTEN = .NEW_IHSYM_PTRCIHSSL_DSTVBN] + .NEW_IHSYM_PTRCIHSS$W_DSTBLKS); 
r8 ¥ 
730 ! NOW WRITE OUT THE DEBUG MODULE/PSECT TABLE (DMT) BLOCKS. 

= 
036 if -PATSGL_IMGHDR CIHD$V_DBGDMT) ! Did the Latest Linker gene 
7 650 ' If so, then... 
754 651 IF .OLD_IHSYM_PTR CIHSSL_DMTBYTES) NEQ 0 ' ...are there ~~ DAT entri 
755 $36 THEN ' Yes propagate he DAT to 
136 65 BEGIN i NOTE: At this point it is 
7 654 BLK _DIFF = (.OLD_IHSYM_PTRCIHSSL_DMTBYTES] + A_PAGE) / A_PAGE; ! Number of pages used for t 
75 655 = 0; ' Reset local transfer count 
75 $26 NEW_IHSYM_PTR EINSSL DMTVBN] = .MAX_VBN_WRITTEN; ' Set the new starting VBN o 
760 65 PATSGL_NEQRABCRABSL BKT) = .MAX Mt iy WRITTEN; ' Point to the DMT's VBN in 
76} $28 CUR_VBR = .OLD_IHSYM_PTRCIHSS. _BMTVENI; ! Point to the old starting 
76 660 WHILE .COUNTER LSS .BLK_DIFF DO ! Copy the entire DMT. 
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BEGIN 
IF OUT_BUF_SIZ GEQ .OLD_IHSYM_PTR 
(.COONTER # A 
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L_DMTBYTES] - ! Is the buffer large enough 
! the entire (or remaining 
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O_READ = 


T (BLK 
ER = .COUNTER + 
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Yes, 
IFF = ,COUNTER) * A_PAGE; Set the number of DMT byte 
BLK_DIFF = . COUNTER); ! Set number of blocks trans 


t 


ao 


No, 
' Copy a buffer full at a ti 


O_READ = OUT_BUF 
Update number of blocks tr 


T $12; 
ER = .COUNTER * OUT_BUF_BLKS; 
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PATSGL_NEWRABLRABSW_RSi] = .BYTES_TO_READ; 


14+ 
! NOW READ IMAGE SECTION. IF IMAGE SECTION IS TOO LARGE 
FOR BUFFER, READ TEN BLOCKS OF IT. 


PATSGL_ERRCODE = GET_IMAGE_BLOCK ( .CUR_VBN 
.OUT_BUF_PTR, 
-BYTES_TO_READ ); 


Propagate the byte count t 
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785 
if NOT .PATSGL_ERRCODE 
SIGNAL (PATS_READERR, 1, GETFILDSC(PATSGL_OLDFAB), .PATSGL_ERRCODE, 0); 
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| INITIALIZE THE OUTPUT BUFFER ADDRESS AND WRITE THE DMT (OR PART THERE OF...) 
PATSGL_NEWRABCRABSL_RBF] = .OUT_BUF_PTR; 

PATSGL-ERRCODE = SWRITE(RAB=PATSGL_NEWRAB); 

IF NOT~.PATSGL_ERRCODE 


THEN 
SIGNAL(PATS_WRITEERR, 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWRABCRABSL_STS], .PATS$SG 
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144 
' CHECK TO SEE THAT THE ENTIRE DMT HAS BEEN WRITTEN. 
IF NOT, RESET THE VBN'S FOR THE NEXT TEN BLOCKS OF IT. 


if .COUNTER NEQ .BLK_DIFF 
THEN 


CUR VBN = OLD IHSYM_PTRCIHSS$L_DMTVBN] + .COUNTER; 
PATSGL_NEWRAB RABSL_BRTJ = .NEW-IHSYM_PTRCIHSSL_DMTVBN] + .COUNTER; 


END; ! WHILE 
if (.MAX_VBN_WRITTEN LSSU (.NEW_IHSYM_PTRCIHSSL_DMTVBN] + .BLK_DIFF)) 
MAX_VBN_WRITTEN = .NEW_IHSYM_PTRCIHSSL_DMTVBN] + .BLK_DIFF; 
END; ! IF (DMT present) 
END; ! of DST/DMT processing. 
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! Now reopen the input file with another on™ oe that we can change 

! the process ng from Q10's to record 1/0. need to do recora’ i/o in the 
's i these. table and perch commands since Siaeraes on needs to be appended to 
: ese in the new file. 


haa dy Ae pr Aesl EN Aas = PATSGB_OLDNAME 
PATS$GC OLDNBK. CNAMSB_RSLJ; 
Parsee ERR RODE . * SoPEN a F AB=TMPF 
F_NOT” .PATSGL_ERRCODE 


N 
SIGNAL (PAT$_OPENIN GETFILDSC(TMPEA 
. TMPFAB Nest’ “sTS], .TMPFAB C Rage _STV)); 


Spb -ERRCODE = SCONNECT (RAB=TMPRAB); 
IF wor”. -PATSGL_ERRCODE 


SIGNAL (PATS OPENIN GETFILDSC(TMPFAB) 
MPRAB tRABSL “STSJ, .TMPRAB CRAB$L_STV)); 


Change attributes to be able to do record 1/0. 
TMPF AB FrABEy- -ESC) = TRUE 


Di Pin i in in in Pn i i, iy i i ee | 


Ft ae pn ne ey ye epee a a ea oe re 
- Ooo UENO OONOULS WN — 


ae 


TMPFAB CFABSL~CTX) = RMESC ~SETRFR: 
TMPFAB CFABSB-RFM] = FABSC~V 


IF NOT (PATSGL_ERRCODE = snotty (FAB=TMPF AB) ) 


SIGNAL (PATS OPENIN GETFILDSC(TMPFAB) 
MPRAB URASSL *sTSJ, .TMPRAB CRABSL_STVJ); 


THE FIRST GET/PUT MUST BE BY RFA AND THE REST SEQUENTIALLY. 
PATSGL -NEURABERABSU_ Us?) = = A_PAGE; 
PATS6L NEWRABCR ABSL UB .OUT_BUF_PTR; 

iF .NEW. IHSYM_PTRCTHSSL _GSTVBNT NEG 0) 


NEW _IHSYM_PTRCIHSSL_GSTVBN] = .MAX_VBN_WRITTEN; 
If (.MAX_VBR_WRITTEN NEQ 0)~ 


PATSGL_NEWRABCRABSL_BKT) = .MAX_VBN_WRITTEN = 1 
SIGNAL (PATS_PATERR) ; 


rere, -ERRCODE = SREAD(RAB=PATSGL_NEWRAB) ; 
IF NOT .PATSGL_ERRCODE 


SIGNAL (PATS_READERR, 3, GETFILDSC(PATSGL_NEWFAB), .PATSGL _NEWRABERABSL STS], .PATSGL_NEWRABCRABSL_ST 
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rey Initialize to read the global symbol table. The first record is read by RFA. 
7 3 TMPRAB spt =REAO got. IHSYM_PTRCIHS$L_GSTVBN); 

770 TMPRAB [RABSW 

g : TMPRAB CRABSB— RAC} 2 “abs. RFA; 
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! Initialize buffer addresses. 
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' 
PATSGL_NEWRABCRABSL_RBF] = .OUT_BUF_PTR; 
TMPRAB CRABSL_UBF) = .OUT_BUF_PTR; 


'e+ 


' Now write out 
! ween THIS ake 


coat giobet symbol records. 
HEN PATCH HANDLES SYMBOLS. **** 
O EXPAND THE GLOBAL SYMBOL TABLE. **** 


{-OLD. HSYM_PTRCIHSS$W_GSTRECS] NEQ 0) AND 
NJ GTR 2) 


i eee IT WOULD B 
iF (.OLD_IHSYM_PT 
(-OLD-IHSYM_PT 


BEGIN 
COUNTER = .OL 


D_IHSYM_PTRCIHSS$W_GSTRECS]; ! COUNT THE RECORDS AS READ 
rts »COUNTER GT 


R 0 


BEGIN 
PATSGL_ERRCODE = $GET(RAB=TMPRAB) ; 
IF NOT .PATSGL_ERRCODE 


N 
SIGNAL (PATS_READERR, 1, GETFILDSC(TMPFAB) 
. THPRABCRABSL_S{SJ, .TMPRABLRABSL_STVJ); 
TMPRABCRABSB_RAC] = RABS$C_SEQ; ‘SET FOR SEQUENTIAL 1/0 
PATSGL_NEWRABCRABSW_RS2) = . THPRABCRABSW_RSZ); 
PATSGL-ERRCODE = SPOT(RAB=PATSGL_NEWRAB) ; 


SIGNAL (PATS_WRITEERR, 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWRABCRABSL_STS], .PATSG 
_—e = COUNTER = 1; 


i NOW WRITE A RECORD TO FILL THE REST OF THE BLOCK WITH A FILL CHARACTER. 
i THE SIZE OF THE FILLER RECORD 1S THE NUMBER OF BYTES IN A BLOCK MINUS 
i THE LAST RECORD SIZE, THE LAST RECORD OFFSET INTO THE BLOCK, AND FOUR 
i BYTES FOR THE LAST RECORD LENGTH AND THE FILLER RECORD LENGTH. 
PATSGL_NEWRABCRABSW_RSZ] = A_PAGE = .PATSGL_NEWRABCRABSW_RSZ) - .PATSGL_NEWRABCRABSW_RFAG] - 4; 
IF (.PATSGL_NEWRABLRABSU_ SZ] GTR 0) AND (7PATSGL_NEWRASLRABSW_RSZJ LSS A_PAGE) 
BEGIN 
CHSFILL(FILL_CHAR, .PATSGL_NEWRABCRABSW_RSZ], .OUT_BUF_PTR); 


PATSGL_ERRCODE = $PUT(RAB=PATSGL_NEWRAB); 


SIENA SPATS URE TERRE 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWRABCRABSL_STS], .PATSGL_NEWRAB 
END; 


ee 

i SET THE VBN OF THE PATCH COMMAND TEXT IN THE NEW IMAGE HEADER, TO NEXT BLOCK. 
NEW_IHPAT_PTRCIHPSL_PATCOMTXT] = .PATSGL_NEWRABLRABSL_RFAO] + 1; 

lee 


! NOW WRITE OUT THE OLD APPENDED PATCH COMMANDS. 
! THEY ARE VARIABLE LENGTH, SEQUENTIAL RECORDS, ENDED BY EOF. 


g 
PATURT 1B-Seo-1984 00:52:48 VAK-IT BLiss=32 V4.Qa742 page 18) | Al 


; 935 1831 lan 

: 9 § 1 : if .PATSGL_IHPPTRCIHPSL_PATCOMTXT) NEQ 0 

3 i 4 vase BEGIN 

: 9 § 1835 MPRABCLRAB$B Air" = RABSC_RFA; ! FIND THE FIRST BY RFA 

: 940 1 : THPRAB RABSL AQ) = ghATscu. THPPTRCIHPSL_ PATCOMTXT | SET 

+ 941 1 TMPRABLRABSW_R | Set BYTE OFFSET WITHIN BLOCK 

: 94 1 8 REPEAT 

: 94 1 4 GIN 

: 944 1840 4 144 

> 945 1841 4 i THIS LOOP READS AND WRITES ALL THE PREVIOUS APPENDED PATCH 

3 oe 1306 ? iat COMMANDS AND FINISHES WHEN OF IS ENCOUNTERED. 

: 948 1844 4 PATSGL RRCODE = $GET(RAB=TMPRAB); 

> 949 1845 4 -PATSGL_ERRCODE EQL RMS$_EOF 

: 950 1846 4 N 

; 951 1847 4 EXITL 

; 9¢ 1848 4 IF NOT Ryiite OE RRCODE 

: 95 1849 4 THEN 

: 954 1850 4 SIGNAL (PATS READERR, ILDSC (TMPF AB) 

; 955 1851 4 RABSL STS] "enok CRAB$SL_STV)); 

: 956 185¢ 4 TMPRABLR RABSE Phat e a; ' ALL THE REMAINING IS SEQUENTIAL 1/0 
3; 957 1853 4 PATSer _NEURASLRABS RS7)¢= MPRABCRABSW_RSZJ; 

; 958 1854 4 PATSGL_ERRCODE = Seon thapepAtser _NEWRAB) > 

; 223 192? 2 IF NOT .PATSGL_ERRCODE 

: 961 1857 4 tei SIGNAL(PATS_WRITEERR, 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWRABCRABSL_STS], .PATSG 
; 308 1859 END; 

: 964 1860 

3; 965 1861 'e¢ 

: 966 186¢ i NOW APPEND THE PATCH COMMANDS FOR THIS SESSION. 

3; 967 186 i THE PATCH COMMANDS ARE STORED AS ASciC STRINGS IN BLOCKS THAT ARE 

; 968 1864 i SINGULARLY LINKED TOGETHER. THE COMMANDS DO NOT SPAN BLOCK BOUNDARIES. 

: 969 1865 i THE LAST COMMAND IN A BLOCK IS FOLLOWED BY A ZERO COUNT. 

: 971 1867 2 COM_TXT_PTR = .PATSGL_TXTLHD; 

: 97 1868 2 WHICE .COM_TXT_PTR NEGA 0 

: 97 1869 DO 

: 97% 1870 BEGIN, 

> 975 1871 COM .COM_TXT_PTR + TXTSC_SIZE; ! POINT TO FIRST COMMAND IN BLOCK 
: 976 1378 GRICE. ROM _PTREO)] REQ 0 

: 977 187 DO 

: 978 187% 4 EGIN 

: 979 1875 4 Bat GL_NEWRABCRABSW -RSZ] = .COM -PIRCO); ! SET LENGTH OF COMMAND 

> 980 1876 4 PATSGL_NEWRABLRABSL-RBFJ = .COMPTR + 1; i SET ADDRESS OF COMMAND 

; 981 1877 4 ATSGL-ERRCODE = $POT(RAB=PATSGL NEWRABS ; i WRITE ONE COMMAND 

: 98 28 4 IF NOT”. .PATSGL_ERRCODE 

: 984 1880 4 SIGNAL(PAT$_WRITEERR, 1, GETF LDSC(PATSGL _NEWFAB), .PATSGL NEWRABLRABSL _STS], .PATSG 
: 985 i é CON. PTR = CHSPTR(.COM_PTR, Reon’ fk RLOJ + 1) ‘POINT TO NEXT COPMMAN 

: 987 5 CON. TXT_PTR = .COM_TXT_PTRCTXTSL_NXTBLK); ! POINT TO NEXT COMMAND TEXT BLOCK 
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1b-5e 1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 19 PAT 
1 $007 1382 99:25:08 DISKSVMSMASTER:CPATCH.SRCIPATWRT.B32:1> (5) v04 
lee 
' NOW WRITE OUT THE IMAGE HEADER. THE IMAGE HEADER IS WRITTEN LAST BECAUSE 
i THE VBN FOR THE PATCH COMMAND TEXT MUST BE FOUND FIRST. THE ECO LEVEL BIT 
i CORRESPONDING TO THIS PATCH MAY NOW BE SET IN THE IMAGE HEADER. IF THE 
| HEADER IS WRITTEN SUCCESSFULLY, THEN THE ECO LEVEL INDICATOR, PAT$GB_ECOLVL, 
i 1§ RE“INITIALIZED TO ZERO. THES WILL ENABLE ANOTHER ''SET ECO’ COMMAND TO 
i SPECIFY A NEW PATCH. 
if _(.PATSGB_ECOLVL NEQ 0) ! DON'T TRY TO SET A LEVEL IF NONE SPECIFIED 
BEGIN 
ECO_LEVEL_PTR = CHSPTR(NEW_IHPAT_PTRCIHPSL_ECO1J, 0); ! SET POINTER TO ECO LEVEL BITVECTOR 
ECO“LEVEL-PTRL.PAT$GB_ECOLVL-1] = 1; i SET ECO BIT 
ECO-LEVEL-PTR = CHSPTR(PATSGL_IHPPTRCIHPSL_ECO1], 0); | SET POINTER TO ECO LEVEL BITVECTOR 
ECO_LEVEL_PTRE.PATSGB_ECOLVL=1 = 1; i SET ECO BIT 
PATSGL_NEWRABCRABSL_BKT) = 1; ' SET NUMBER OF BLOCK TO OUTPUT 
PATSGL_NEWRABLRABSW_RSZJ = .NUM_HDR_BLKS * A_PAGE; i SET NUMBER OF BYTES TO WRITE 
PATSGL-NEWRABLRABSL_RBF) = .NEW-IHD-PTR; i SET BUFFER ADDRESS 


144 
! NOW CLEAR THE TRUNCATE BIT BEFORE PATCH WRITES THE IMAGE HEADER. IF THIS 
IS NOT DONE, THE REST OF THE FILE IS LOST. 


PAT$GL_NEWRABCRABSV_TPT) = FALSE; 


PATSGL ERRCODE=SWRITE(RAB=PATSGL _NEWRAB) ; ! OUTPUT HEADER BLOCKS 


IF NOT .PATSGL_ERRCOD 
THEN 


SIGNAL (PATS_WRITEERR, 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWRABCRABSL_STS], .PATSGL_NEWRABCRABSL_S 
PAT$GB_ECOLVL = 0; ! ALLOW NEW PATCH ECO LEVEL 
14 


14 
OW RESET FILE ATTRIBUTES. 


PATSGL_NEWFABCFABSV_ESC] = TRUE; 
PATSGL_NEWFABLFABSL_CTX) = RMESC_SETREM; ' SET MODIFY CODE 
PATSGL_NEWF ABLFAB > FIX: i SET VARIABLE LENGTH RECORDS 


RFM) = FABSC 
PATSGL ERRCODE = SRODIFY(FAB=PATSGL_NEUF AB) ; 
SIGNAL(PATS$_MODIFYERR, 3, .PATSGL_ERRCODE, .PATSGL_NEWNBKCNAMSB RSL. 
PATSGB_NEWNAME, .PATSGL_ERRCODE, .PATSGL_NEWRABLRABSL_STVJ); 
lee 
i NOW CLOSE THE OUTPUT IMAGE FILE. THIS IS DONE 
i COMMAND CAN REWRITE THE FILE IF UPDATE IS SPECI 


PATSGL_ERRCODE = SCLOSE(FAB=PATSGL_NEWF AB); 
IF NOT .PAT$GL_ERRCODE 


SIGNAL(PATS_CLOSEOUT, 1, GETFILDSC(PATSGL_NEWFAB), .PATSGL_NEWFABCFABSL_STS], .PATSGL_NEWFABCFABSL_S 
PATSGL_FLAGS CPAT$S_OUTPUT] = 0; 
: Close the input file, we are all done with record 1/0 processing. 


O THAT THE ‘UPDATE"’ 


HERE S 
FIED MORE THAN ONCE. 


ELSE 


> 8 
PATWRT 16-Sep-1984 00:52: VAK=11 BLiss-32_V4.0-742 p 0 
04-000 tees Pe Sd Se HS ene ee a 
: 1047 194 
i 1948 1908 § PATSGL_ERRCODE = SCLOSE (FAB=TMPFAB); 
i 1949 1944 3 IF NOT” .PATSGL_ERRCODE 
1981 1946 SIGNAL (PATS_CLOSEIN, 1, GETFILDSC(TMPFAB), .TMPFABCFABSL_STSI, .TMPFABCFABSL_STVJ); 
; 1938 1948 2 RETURN; 
: 1084 1949 ¥ END: | END OF PATSWRTIMG 


-TITLE PATWRT 
-IDENT \V04-000\ 


-PSECT _PATSPLIT,NOWRT,NOEXE ,0 


93 8000 P.AAA: .BYTE 3 : 
0 00001 BYTE 0 : 
? bbe . WORD : 

$98 8 4 LONG r 
0 0008 LONG 3 

00 444 4 LONG 3 
sane 001 LONG s 
Bate WORD 3 

0 1g BYTE : 

001 BYTE 3 

00000000 00018 LONG r 
8 001C BYTE 3 

0010 BYTE 3 

OO1E BYTE 3 

OO1F BYTE § 

000000 0020 LONG 3 
44144 88 4 LONG 3 
444 00G 00028 ADDRESS PATSGL_OLDNBK : 
44 30 002C -LONG 0 3 
0000000 0030 LONG 3 
0 00 BYTE 3 

8 8 5 BYTE 3 

6° 0 WORD 5 
0000000 00 LONG 3 
000 003C - WORD 3 
003E BYTE 3 

003F BYTE ; 

00000 0 LONG s 
see LONG 3 
WORD 3 

BYTE 3 

BYTE F 

00000 LONG 3 
1 P.AAB: BYTE ; 

4 BYTE 8 3 

WORD 3 

LONG 3 

LONG 3 

LONG 5 

é - WORD (3) F 

WORD 3 

0000 LONG ; 


eS ee 


00000 NUM_OF UPDATES: 


<v 
<= 


+38: $8 VAX-11 Bliss-32 V4.0-742 
DISKSVMSMASTER:CPATCH.SRCIJPATWRT. B32. 79° 


_PATSOWN, NOEXE ,2 


PATSWRITEFIL 
A PATSALLOBLK 
GETEILDSC INGSDECODE. THD 
PAT$GB ECOL Ve: PATS$GL_CHANUM 
PATSGL UNL RAB PATSGL ~NEWVBNMX 
PATSGL OLD VBNMX 

PATSGL eat PATSGW_IMGVOL 


SYSSREAD, "ey 
SYSSPUT, SYS res 


-PATSCODE ,NOWRT ,2 


a ea aed = “8 8 8 ts ts do 3  _ts  d 


PATSWRTIMG, Save R2,R3,R4,R5,R6,R7,R8,R9,~ 


F 8 
v04~000 1ergeei 1 3RE 93:88i8h ee SAAS FER eke Gecaparurr.as2cie «Ss 


v0v 


SE C#RSG=sOCE movag P19sRER). sp : 
5¢ AE 990000 * EF 9050 i 5 of novcy 180, P.AAA, TMPFAB + 117 
18 Ae 000 ' EF 44 BF 2 MOVC3 #68. P.AAB, TMPRAB +117 
4 Ae Sc OA : 1 MOVAB TMPFAB, TMPRAB+60 + 1172) 
08 999000 06 EF 0 E BBC #6, PATSGL FLAGS, 1$ : 120 
O00vV EF FB A CALLS #0, WRITE_BINARY : 05 
VL L_IMGHDR, R + 1212 
50 000000006 hb D 1$ MOVIL PAT 6 IMGHDR, RO : 
0 i C BEQL : 
58 04 =A f MOVZWL 4(RO), OLD_IHSYM_PTR + 1214 
B c¢ 04 ADDL2 RO, OLD_IHSYM_PTR : 
4 00047 2$ CLRL LD_IHSYM_PTR + 121 
0 10 ri oh 848 $§ MOVZBL ? ROD R : 1 i$ 
50 0 09 78 9040 ASHL #9, RO. R : 
0 0400 CO 3E 31 MOVAB 1024(RO), NEW_IHD_MAX : 
10 AE 9F 00 § PUSHAB NEW_IHD_PTR : 1218 
50 Dd 0005 PUSHL NEW=IND MAX : 
000000006 EF 02 FB 0005 CALLS #2, PATSALLOBLK ; 
76 1400 BE OE 00K PUSHAB OUf BUF FI  edts 
000000006 EE 02 FB 006A LLS #2, PATSALLOBLK F 
10 AE 00 0071 MOVL _IHD_PTR + 1220 
& 54 p 0075 MOVL. 6, NXT-BYTE_PTR : 
63 000000006 FF 000000906 FF 28 00078 MOVC3 apAt L IMGHOR, @PATSGL_IMGHOR, - + 1226 
59 000000006 FF 3¢ 00084 MOVZWL @PATSGL_IAGHDR, REM_BYTE SIZ : 1227 
59 00000200 F 59 ¢ O00 SUBL3_ REM _BYTE_SIZ, #512, REM_BYTE_SIZ : 
04 As 8 009 STi 4 (RB) + 1228 
50 04 A 3 0098 MOVZWL 4(R6), RO > 1230 
56 50 C 9C ADDL R0. NEW_IHSYM_PTR : 
03 711 009F BRB 5 : 
10 AE D4 000A1 4$: CLRL NEW. IHD _PTR F 1232 
51 10 ar 08 C1 OO0A4 5S: ADDL3 #8, "NEW"IHD_PTR, R1 > 123 
5 61 3C 000A9 MOVZWL (RI), ; 
bE 10 BE4O AC MOVAB  @NEW IHD PTRCROJ, NEW_IHPAT_PTR ; 
0c AE 01 »D Bi MOVL #1, RUM_ADR BLKS : 1238 
3 000000006 EF D B5 MOVL. PATSGL_TSELAD, ISE_PTR > 1239 
9 3 C BC SUBL2 #2, REM_BYTE_S12Z : 1240 
p BF 6$: Ist g-PTR > 1241 
6c ct BEQL ; 
50 000000006 EF p ¢ MOVL PATSGL _IMGHDR, RO + 1244 
5 1 AQ A OOOCA MOVZBL 16(RO)> R ; 
30 02 C cE ADDL ‘ : 
0c AE : : cMPL _HOR_BLKS, RO : 
006D817¢ br dd rv] PUSHL # 176572 > 1246 
000000006 99 1 FB 000DD CALLS #1 418 SIGNAL ; 
16 ABD £4 7$: MOVAB 20(R8), ISD_PTR > 1247 
rz TSTL {se _PtR) > 1249 
EA BNEG ; 
5A C OO0EC MOVZWL 18D PTR), R10 + 1250 
0 02 AA f EF MOVAB é R10), RO ; 
06 1 F3 BRB $ : 
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i i ; FR 88: mOVZUL (150.81 PTR), R10 ; 1251 : 

9 i 9$: cMPL ite "BYTE _$1Z, RO + 1249 ; 

63 7 A Bove R10, (ISD_PTR), (NXT_BYTE_PTR) 3 1254 :] 

9 A C2 001 SUBL RI REM BYTE §12 + 1255 31 

8 3 BO 90107 MOVL (1SE PTRY, ISE_PTR i 139 i] 

50 02 Aad 9E 001 ¢ 10$: MOV (R9) + 126 : 1 

50 FF oF 6E 09 2¢ 1 movcsS 40, Lgpye #255, RO, (NXT_BYTE_PTR) : ; 

01 0c At i 11? cMPL HDR_BLKS, #1 + 1261 ; 

FE AB 000000906 EF 3C 0011 MOVZWL PATSGW, IMGTYP, -2(NXT_BYTE_PTR) + 126 3] 

C AE 06 00125 118: INCL NUM HD BLK + 126 3 1 

59 OE BF 3¢ 00188 movZuL # 0, RER- BYTE_SIZ : 1268 : | 

e3 BA 12F 12$: CLRW (NXT_BYTE_PTR) + + 1267 31 

59 FF OF 6E 09 C 0013) MOVCS #0. CSh), he #253, REM_BYTE_SIZ, ; 1268 : 

01 0c AE D1 00138 CMPL NUM_AD ADR. BEK KS. n : 1269 31 

0 \2 13¢ BNEG 13$7 : 31 

FE A3 900000006 EF 3C 0013 MOVZWL PATSGW_ INGTYE. <3 (NXT BYTE_PTR) : 1270 31 

50 000000006 FF DO 00146 138:  MOVL = Ff IMGHD + 1275 31 

OC AE 10 Ad 08 09 i 140 CMV fe % cRoS, NUM_HDR_BLKS ; : } 
F D CMPL § PATSGL_NEWVBNMX, PATSGL_OLDVBNMX + 1276 ; 

000000006 EF 000000006 136 $ : 1 

009 $4 oles BRU oats z 

50 10 AE 10 gi 166 14$: ADDL3 a6 NEW, IHD_PTR, RO + 1284 31 

54 : A 00168 nOvZBL (ROS, BLR_D : :1 

54 oc A 4 c3 1g SUBL3 BLK _DIFF,~NUM_HDR_BLKS, BLK_DIFF : : 1 

5 10 BE 3C 001 MOVZWL @NEQ_IHD PTR, New “1SD_PTR : 1285 71 

5 10 ag C 17 ADDL2 NEW git PTR W_TSD_PTR : 31 

: : 178 15$: TSTW (NEO I 135. P Th)” + 1286 31 

F 17D BEQL «7 ; 31 

08 08 A2 03 £0 0017F BBS #2, 8(NEW_ISD_PTR), 16$ + 1289 31 

04 08 A2 €E8 001 BLBS BW NEW_ISD-PTRY ; > 1 

oc A 54 g 1 ADDL2 BLK D OTF F. “12(NEW_ISD_PTR) : 1291 31 

: ¢ 18C 16$:  MOVZWL (NEO 1 PTR), RO : 1292 31 

CO 0018F ADDL2 RO ors SD _PtR ; 71 

FFFE 6 BF 6 81 1 3 CMPW inet isD-PTR), #65535 : 1293 31 

ree ES OF OOT9 SOVA itor RO : 1299 e | 

30 00000200 F cs 1 DIV Biz ; 21 

50 9 1A ASHL o° . ; 31 

7E 00 10 AE 1 7A OO1A EMUL NEW_IHD_ PIR. #0, -(SP) : 1300 31 

51 31 gr 00000200 = 8F 78 1AF EDIV i Li (SP) +7 ; 7 1 

2 1 4 188 ADDL R RO, NEW. 180° “PTR F : 

50 10 ar * gi 1BE 17$:  ADDL3 #16, NEW_IHD_PTR, RO ; 1988 31 

C AE 90 001C vB HDR BLKS> (RO) ; 7 

50 4 999000 06 EF C1 O01C ADDL3 PATSGL_REWVBNMX, BLK_DIFF, RO : 1303 | 

& 0 G Ef C3 OO1CE SUBL PATSGL OLDVBNMX. RO, BLK_DIFF : 7 

: p 107 TSTL NEW_IHSYM_PTR > 1304 3 | 

1 109 BEQL ; 3} 

66 D5 00108 TSTL  (NEW_IHSYM_PTR) : 1307 i 


H 8 
16-Sep-1984 00:52: VAX-11 Bliss-32 V4.0-742 Pp 4 PA 
18: Haars ri 99:38:38 DISKSVMSMASTER:CPATCH.SRCIPATWRT.B32:1> (3 v04 
13 00100 BEQL. 18S ; 21 
66 9 CO O01DF ADDL2 8 K_DIFF, (NEW_IHSYM_PTR) : 1309 : 1 
oc A p 168 18$ ist I3KREW_iistm_PTaD 3 1311 : 
OC Ab BF C8 Ole ADDL2 BLK DIFF, 12(NEW_IHSYM_PTR) : 1313 3] 
04 AG b 1EB 19$ Ist ¢(NEW_IHSYH_PTR) + 1315 ; 
04 Ab 4 ¢ if6 ADDL2 GBLK_DIFF, 4(NEW_IHSYM_PTR) : 1317 : 
6E 0 C1 OO1F4 208 ADDLS # EW IHPAT_PTR, RO : 1319 71 
DS 001F8 TSTL &R } : 31 
13 QOO1FA BEQL ‘ : i 1 
6f 6 C F ADDL3 #32, NEW_IHPAT_PTR, RO + 1321 71 
; ADDL BLK DIFF, (RO) : : 1 
any 18: CURL BLK DIFE 1832 Z 
5A 000000006 FF 09 a8: OVE PATSGL_TXTLHD, COM_TXT_PTR : i : 
000000006 EF D 6 1 "INCL = PATSGL_IMGBLKS :1 34 71 
SA 6A p MOVE { OM_TRT_PTR), COM_TXT_PTR : 1335 : 
0000006 EF 54 C 18 248 ADDL2 BLK_DIFF, PATSGL_IMGBLKS + 1337 31 
99 0 G EF 000000006 EF D MOVL PATSGL JAGBLKS PATSGL_NEWXABALL+16 : 1338 31 
0 G EF 5 €£ p BBC #5, PATSGL_FLAGS + 1340 31 
90 00G EF 000000006 EF 8 MOVW  PATSGW IMGVOL PAT$GL_NEWXABALL+10 > 1343 31 
0000000G_ EF 2 90 00 8 MOVB #2, PATSGL_NEWXABALL+9 3: 1344 3 | 
00000000' p 0 47 25$ Ist NUM_OF UPDATES > 1347 : 
1 04 EF O024F EXTZV #4, #1, PATSGL QLDFAB+6 RO : 1357 31 
7 9 FO 00258 INSV RO, #7, #1, PATSGL_NEWXABALL+8 3 | 
1 g EF 00261 EXTZV #5, #1. PATSGL OLDFAB+6. : 1358 31 
5 0 FO 00 oA INSV RO, #5, #1, PATSGL_NEWXABALL+8 3 3 1 
000000006 EF 9F 00 : PUSHAB PATSGLNEWFAB + 1359 71 
0000006 00 1 FB 0027 CALLS #1, SYSSCREATE : 71 
00000006 FF 0 D 0 Hi mOvL R ; PATSGL_ERRCODE : 3 \ 
000000006 EF 20 5 028A BISB2 #32, PATSGL_NEWXABALL+8 : 1362 71 
000000006 EF 9F 0 91 PUSHAB PATS$GL_NEWFAB : 136 > 1 
900000006 00 a. 97 CALLS #1, SYSSCREATE : 71 
00000006: EF 0 00 00 H MOVL PATSGL_ERRCOD ; : 1 
6 00000 006 ef € 6 A PATSGL_ERRCODE, 28$ > 1364 : 1 
0000000G EF DD 002A PUSHL  PATSGL-NEWRAB+412 > 1366 31 
SOHN EB SR Gags gan : : 
000000006 00 03 Fe f CALLS #3, LIB$SIGNAL ; fa ; 
000000006 EF 9F 002C7 26$: | PUSHAB PATSGL_NEWFAB : 1336 31 
900000006 00 1 F cD CALLS #1, SYSSOPEN ; 31 
00000006 FF 0 »D MOVL RO, PATSGL ERRCODE ; 31 
E 9 00 G €F E 37s: BLBS § PATSGL_ERRTODE, 29S : 1371 31 
G EF OD OO2E2 28$:  PUSHL PATSGL“NEWRAB+{2 : 1373 3 
00006 cE Dp E PUSHL PATSGL_NEWF AB+8 : ; 
000000006 EF 9F i 298 PUSHAB PAT$GL_NEWRAB : 1376 2 
00 x. F CALLS #1. SYSSCONNECT ; : 1 
Hy ooooooone PPE Bui? GEEE. lvoe Tennebge Rf fa] | 
E dda EF 9D 88 MOVO  PATSGL“NEWRAB+8, -(SP) 3 1359 a 


a 
-Sep-1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 25 PA) 
b-Se0-1984 99:38:68 DISKSVMSMASTER:CPATCH. SRCIJPATWRT.B32:1> (83 v04 
000000006 EF 9F 30$:  PUSHAB PATSGL_NEWFAB ; : | 
000000006 EF Q 4 CALLS i. GETFILDSC ; : 
DD PUSHL # : 3] 
000000006 BF DD PUSHL  #PAT$_OPENOUT : 31 
000000006 00 re CALLS a , LTBSSIGNAL : : | 
' EF 31$ MOVL #1, NUM_OF_UPDATES : 1382 3) 
G EF BISB #8, PATSGL_FLAGS 3: 138 3 1 
G EF BISB #8, PATSGL_NEWFAB+7 : 1384 3 | 
G EF OVL #1, PATSGL NEUE ABS @6 3 1385 3 | 
G EF 2 VB #2, PATSGL~NEWFAB+31 +1 6 31 
000000006 EF 9F PUSHAB PATSGL_NEWFAB : 1 3 1 
900000006 00 1 &F CALLS #1, SYSSMODIFY : 31 
006 cE 0 D MOVL RO, PATSGL_ERRCODE : 31 
6 E BLBS R + 1388 31 
000000006 FF DD PUSHL PATSGL_NEWRAB+12 + 1392 ; | 
00000006 EF oF PUSHAB PAT$GB_NEWNAME + 1390 31 
7E itditit FF A MOVZBL PATSGL-NEWNBK+3, -(SP) : 133° 31 
9 DD PUSHL R + 1390 31 
DD PUSHL @# : > 1 
006D819¢ BF DD PUSHL #7176604 : 51 
000000006 00 7 §B CALLS #7, LIBSSIGNAL ; 31 
9000 0006 EF 9F 328 PUSHAB PATSGB_NEWNAME + 1399 : 1 
7E 000000006 F aA MOV ZBL PATSGL_NEWNBK*3, -(SP) : : 
006D82C3 BF DD PUSHL +5176899 : :1 
00000006 00 4 FB CALLS #4, LIB$SIGNAL F 31 
01 000000006 EF 3 £0 BBS #3, PATSGL_FLAGS, 33$ + 1404 ; 1 
01 000000006 EF 02 £0 338: BBS «#2, PATSGL_FLAGS, 348 ; 1405 : 1 
58 000000006 EF b0 34$:  MOVL PATS$GL_ISELHD, ISE_PTR + 1411 > 1 
3 10 BE ¢ MOVZ2WL @NEW_IAD PTR, NEW ISD PTR > 1412 31 
1 Ar C ADDL2 NEW_THD_PTR, NEW_ISD_PTR : 31 
D4 CLRL MAX"VBN“WRITTEN + 1413 31 
8 D 35$ TSTL sE-P + 1414 31 
BNEQ 6 $ 3 1 
01 BR 4$ 3 3 1 
57 4 =A E 36$ MOVAB 20(R8), ISD_PTR : 1417 3 1 
; D CLRL COUNTER : 1418 3 1 
03 08 a7 1 BBC #2, 8(ISD_PTR), 38$ + 1419 3 1 
0163 31 373: BRW 3 $ ; 31 
FD soGF 08 A 8$: cMPB }C1S_PTR), #253 + 1420 : 
05 8 fs E BLBC (ISD_PTR), 39$ : 1431 31 
C a? p sit (1S0_PIRS : 1422 : 
08 AE C fo D 39$:  MOVL (ISD_PTR), CUR_VBN + 1428 3 1 
000000006 _ EF g Ag p MOVL 12(NEWISD_PTR) , PATSGL_NEWRAB+56 : 14 ? 3 
5 A : 40$:  MOVZ2WL 2(ISD_PTR)= RS : 14 3 1 
5 ; CMPL £0 TER, RS ; > 
¢ BNEQ 4 3 | 
10 "4 ois: Fe, Raeise prey : 1438 : | 
O3 8 BEQL 135 3 2.4 


1b-5e $ep-1984 VAX-11 $32 V4. > 742 PA] 
1 et 7 99: 38 a DISK$V neh TER: CPATCH.SRCJPATWRT.B32; pyee (38 v04 
0082 3 ais BRW ; 31 
38 g rat 428 SUBLS c Gon R, af? RO : 1444 ; } 
00001400 FF p Gif CMPL §3120 : 31 
4 AE D) 90458 ROW : * BYTES. TO_READ : 1450 2 
000000866 F 04 AE BO 0040C MOVW Bytes TO_READ, PATSGL_NEWRAB+34 + 1451 31 
3 3 4 MOVL Re COUNTER : 1458 : 
4 AE 14 F 439 43$: MOVZWL oof BYTES _TO_READ : 14 31 
000000866 5 1209 er 8p 43F MOVW i 129, oats cc NEWRAB+34 : 1409 3 1 
3 A CO 00448 ADDL2 : 1462 31 
04 AE DD 00448 44$: — PUSHL aio, eon READ + 14 :1 
1 AE DD rh PUSHL CURIVEN : 140 3 1 
10 AE DD 004 PUSHL “VBN + 1469 31 
90000000v EF : FB 00454 CALLS . GET IMAGE Bb ock ; 
0000006 EE DO 004 MOVL PATSGL ODE : 
6 000000006 FF E 46 BLBS RO: PA TERh rere. 45$ + 1472 
E 04 004 CLRL = = (SP) + 1474 
00000006 EF BD 468 PUSHL eh ERRCODE + 1475 
00000006 EF 9F 004 PUSHAB DFAB + 1474 
000000006 1 FB 00477 CALLS seer IL DSe F 
0 DD 047 PUSHL 40 : 
1 DD 004 PUSHL #1 : 
000000006 8F DD 004 PUSHL sPATS READERR F 
00000006 00 5 FB 04 CALLS #5, LYB$SIGNAL ; 
00000006 EF 14 AE of O48F 45$: MOVL a BUF _PTR, PATSGL_NEWRAB+40 : 1480 
51 53 09 78 00499 46$: — ASHL COUNTER, R1 + 1501 
20 : 0490 SUBL3 COUNTER, RS. RO : 1489 
50 09 Al ASHL #9, RO, RO : 
00001400 aF 0 D1 0045 CMPL RO, a a : 
1F 18 O04AC BGEG }§60s «47$ : 
5 02 Ag 3C 004A MOVZWL 2(NEW Isp PTR), RO + 1499 
3 3 C2 0048 SUBL COUN ; 
000000006 EF 0200 8F AS 0048 MULW RO ATSGL_NEWRAB+34 + 1498 
000000006 EF OC 8841 9E 004BF MOVAB aieCise er ERi > PATSGL_NEWRAB+40 : 1501 
3 38 DO 004¢8 MOVL RS, COUN : 1502 
15 11 004¢B BRB af : 1489 
000000006 EF 1400 _8F 80 4CD 47$: MOVW #5120 "rast NEWRAB+ 34 + 1511 
000000006 gf 0C 8841 3 406 MOV aig 1S€_PTR)CRIJ, PATSGL_NEWRAB+40 : 1313 
3 OA g 4DF ADDL2 #10, COONTE : 1514 
000000006 EF 9F 3 48$:  PUSHAB PATSGL Ene + 1521 
990000006 00 1 F E CALLS a, SYSSWRITE ; 
0 G EF 0D EF VL —RO,_~PATSGL ERRCODE : 
5 6 EF E F6 BLBS §PATSGL_ERRCODE, 49$ : 15 : 
ig G EF 7D OO4FD MOVa —— PATS$GL~ WRAB+6. -(SP) : 15 
0 G EF OF PUSHAB PATSGL~NEWF AB + 1524 
000000006 EF 1 FB A CALLS ny CETF I ILDSC : 
0 DD PUSHL F 
1 0D 0051 PUSHL ; 
aaocooons gp MMMMPOOE HE PE BRET MS eee aT : 
: of ; 49$: CPL FER R : 1532 
AE C 87 ; E MOVAB 12(1SD_PTR)CCOUN > 1535 
000000086 EF gf B24 f D MOVAB al2(NEW"ISD_PT eet eR fERy -b - ERT sc _NEWRAB+56 ; 1 2 


Kk 8 
PATWRT -$ep-1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 27 PAT 
04-000 eee rR Me ES tt et De v04 
FECA 31 : = BRW 0$ : 14 
02 A : Ate ROVZYL 2chey ISD_PTR), RO : 1823 
cae ADDL 2(NEQ_ISD_PTRS, R : 
b 4 CMPL  § MAX_VBR_WRITTEN, R : 
44 BGEGU 388 : 
D 46 VL RO, MAX_VBN_WRITTEN + 1544 
p 49 528: ov (1SE_PTR), TSE_PTR > 154 
f 4C MOVZWL (NEW-ISD_PTR),~RO + 154 
¢ 4f ADDL2 RO, REwW_TSD_PfR : 
FFFF © BF be 3 CHP (NEW. ISD_PTR), #65535 ; 1551 
50 10 AF § 9 SUBL3 NEW IHD_PTR, NEW_ISD_PTR, RO + 1554 
O1FF : MOV 511TRO)~ RO ; 
00000200 =F g 26 DIvL2 #512, RO : 
59 9 5A ASHL #9, RO, RO : 
10 AE 28F ADDL3 NEW_IHD_ PTR, RO, NEW_ISD_PTR : 
FESB 31 005 538: BRW 35$ + 1414 
000000006 EF 8 00576 54$:  B1SB2 a PATSGL_NEWRAB+4 + 1561 
D4 00570 CLRL. oR : 1567 
8 fF off Ist OLD _IHSYM_PTR : 
0292 31 00583 BRW 76$ : 
06 586 55$: INCL R : 
55 08 AB ¢ 5 MOV ZWL B{OLD_IHSYM_PTR) , RS : 1570 
05 13 0058 BEQL 65 ; 
02 68 D1 005 c CMPL (OLD_IHSYM_PTR), #2 : 
14 05 BGTR 57 ; 
00g 1 00593 56$: BRW : 
3 4 0596 57$: CLRL +‘ COUNTER + 1573 
66 29 00 059 MOVL § MAX_VBN_WRITTEN, (NEW_IhSYM_PTR) : 1574 
000000006 EF 9 00 005 MOVL § MAX“VBNTWRITTEN, PATSGL_NEWRAB+56 : 1575 
08 AE 6B 00 05, MOVL § (OLB_IHSYM_PTR). CUR_VSN : 1576 
5 § D4 5A 58$: cMPL OUNTER, RS : 1577 
50 55 § c3 O5AB SUBL3 COUNT R, RS, RO : 1583 
50 0 09 Oar ASHL #9, RO, RO ; 
00001400 FF 0 D1 00583 CMPL = RO, #5120 ; 
11 18 OOSBA BGEQ ; 
04 AE 50 DO 0058 MOVL RO, BYTES_TO_READ : 1589 
000000006 EF 04 AE B ¢ MOVW  BYTES_TO_READ, PATSGL_NEWRAB+34 : 1590 
3 55 D ¢ MOVL RS, COUNTER : 1591 
1 } CB BRB : 1583 
04 AE 1400 F cD 59$:  MOVZWL #5120, BYTES_TO_READ : 1599 
000000006 EF 140 F B D MOVW #5120, PATSGC_NEWRAB+34 : 1600 
3 aA c¢ nya ADDL2 #10, COUNTER > 1601 
04 AE DD OOSDF 60$:  PUSHL BYTES TO READ > 1610 
18 AE DD 005€ PUSHL OUT_BOF_PTR + 1609 
10 AE DD O05E PUSHL 7 : 1608 
99090000v EF Q F E CALLS #3, GET_IMAGE BLOCK F 
00 6 Ff D EF MOVL RO. PATSGL_ERRCODE ; 
6 000000006 cf E i BLBS § PATSGL_ERRCODE, 61$ : 1611 
6 EF DD OOete SHEL PASS@L_ERRCODE a 
addittds F BF 5 PUSHAB PATSGL~OLDFAB : 
000000006 EF 1 FB CALLS #1, GETFILDSC : 
0 DD PUSHL R : 
1 DD 0061 PUSH! o# ; 
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VAX-11 Bliss-32_ V 
DISKSVMSMASTER: CP 


#PATS$_READERR 
#5 TBSSIGNAL 


#3, GET_IMAGE BLOCK 
RO. PATSGL ERRCODE 
PAT Sci ERRCODE, $ 


4.0-7 


.0-742 Pa 
ATCH-SRCIPATWRT.B3204" (Ss 


ouf buF PTR, PATSGL_NEWRAB+40 + 161 
PATSGL_REWRAB ” ; 1838 
#1, SYSSWRITE : 
RO. PATSGL ERRCODE : 
PATSGL_ERRCODE, 62$ ; 1634 
PATSGL_NEWRAB*6, -(SP) + 1626 
PATSGL NEWF AB ; 
4 GETFILDSC ; 
R § 
#PATS$_WRITEERR : 
, LIBSSIGNAL ; 
¢ NTER, R + 1632 
COUNTER, (OLD_IHSYM_PTR), CUR_VBN + 1635 
NTER, (NEW_IHSYM_PTR), PATSGL_NEWRAB+56 ; 1936 
B(NEW_IHSYM_PTR), RO + 1640 
(NEW THSYM_PTR), RO : 
WAX_VBN_URITTEN, RO F 
RO, MAX_VBN_WRITTEN + 1642 
patsgt TMGHBR, RO + 1649 
#5, 32tRO), 67S : 
16COLD_IHSYM_PTR). RS + 1651 
1e¢R5) RO + 1654 
#512, RO, BLK_DIFF : 
COUNTER + 1655 
MAX_VBN_WRITTEN, 12(NEW_IHSYM_PTR) + 1656 
MAX" VBN-WRITTEN, PATS$GL~NEWRAB+56 : 1657 
12(OLD_THSYM_PTR), CUR_VBN : 1658 
COUNTER, BLK-DIFF + 1660 
69$ 3 
75$ 3 
#9, COUNTER, R1 + 1663 
5120(R1), RO > 1662 
RS, RO 3 
70$ ; 
COUNTER, BLK_DIFF, RO + 1666 
#9, RO, BYTES_TO_READ : 
RO. COUNTER > 1667 
71§ + 1662 
#5120 BYTES_TO_READ : 1671 
BYTES_TO_READ, PATSGL_NEWRAB+34 > 167 
BYTES TO-READ : 168 
OUT_BOF_PTR : 16 
VBN : 1681 


PATSGL_ERRCODE 


PA] 


m 8 
16-Sep-1984 00:52: VAX=-11 Bliss-32 V4.0-742 Page 29 
19-808-1 382 99:38:68 DISKSVMSMASTER:CPATCH, SRCJPATWRT.B32:1> (3 
000000006 EF 9F 007 PUSHAB PATS$GL_OLDFAB F 
000000006 EF 1 FB t f CALLS #1, GETFILDSC : 
0 oD B PUSHL R : 
1 OD f D PUSHL # : 
000000006 BF DD F PUSHL #PATS READERR : 
990000006 00 5 FB 735 CALLS #5, LIBS$SIGNAL : 
0G EF 146 AE p f ¢ 72$:  MOVL  OUf_BUF PTR, PATSGL_NEWRAB+40 : 16 
000000006 EF 9F 0074 PUSHAB PATSGL_REWRAB : 16 
0 9900006 00 1 FB OO74A CALLS #1, SYSSWRITE : 
0000006 EF 0 pO 007 } MOVL RO, PAT$GL_ERRCOD ; 
© G EF 7 BLBS § PATSGL_ERRCODE, 73$ + 1693 
E G EF ?D f F MOVO  — PATSGL“NEWRAB+8, =(SP) + 1695 
G EF 9F 00766 PUSHAB PATSGL~NEWFAB : 
000000006 EF 1 FB O76 CALLS #1, GETFILDSC : 
0 DD 007 PUSHL RO : 
1 DD 0077 PUSHL # : 
000000006 8F DD 0077 PUSHL #PAT$_WRITEERR : 
000000006 00 3 FB 0770 CALLS #5, LIBSSIGNAL F 
54 33 Dt 0784 73$: CPL UNTER. BLK_DIFF + 1701 
08 AE 0c BB45 9E 00789 MOVAB aig (OLD _IHSYm_PTR) COUNTER], CUR_VBN + 1704 
000000006 EF OC 8643 SE 0078F MOVAB @12(NEW-IHSYM-PTR)CCOUNTER], - + 1705 
PATSGL_NEWRAB?56 ; 
FF28 31 00798 74$: BRW 68$ + 1660 
50 54 Oc A6é C1 00798 75$:  ADDL3 12(NEW_IHSYM_PTR), BLK_DIFF, RO + 1710 
50 59 D1 007A0 CMPL  MAX_VBR_WRITTEN, RO ; 
g if 7A BGEQU 76$ F 
59 0 »D 00743 MOVL RO, MAX_VBN_WRITTEN + 1712 
DC AD 000000006 EF 3 7A8 76$: MOVAB PATSGB_OLDNAME, TMPFAB+44 : 1724 
E46 AD 000000006 EF 9 90780 MOVB § PATSGLOLDNBK+$, TMPFAB+52 : 1725 ; 
C AE 9F 0078 PUSHAB TMPF + 1726 : 
000000006 00 gi FB 007B CALLS #1, SYSSOPEN : ; 
000000006 EF 0 oO O07¢ OVL RO. PAT$GL_ERRCOD ; ; 
1 000000006 EF €E8 007C LBS _— PAT$GL ERRCODE, 77$ : 1727 : 
68 AE ODD £09 PUSHL TMPFAB?12 : 1730 ; 
68 AE DD 007D PUSHL TMPFAB+8 F ; 
64 AE 9F 007D6 PUSHAB TMPFAB : 1729 : 
000000006 EF Q1 FB 00709 CALLS #1, GETFILDSC F 
0 DD 7e0 PUSHL RO : 
1 DD O07E PUSHL #1 ; 
000000006 8F DD 00764 PUSHL #PAT$_OPENIN ; 
000000006 00 5 FB OO7EA CALLS #5, LYBSSIGNAL : 
00000006 00 " oi Bt eS ry TPR cnmecT we 
titties EF g 08 i MOVL RO. PATSGL ERRCODE : 
1 000000006 EF E BLBS § PATSGL_ERRTODE, 78$ : 1733 
4 AE OD PUSHL  TMPRABT12 : 17 
4 AE BD C PUSHL TMPRAB+8 : 
64 AF F F PUSHAB TMPFAB : 1735 
000000006 EF FB 12 CALLS #1, GETFILDSC ; 
0 DD 0081 PUSHL R F 
1 DD 00818 PUSHL # ; 
000000006 8F DD 1p PUSHL #PAT$_OPENIN : 
000000096 00 5 F CALL a5, LTB$SIGNAL 
AE 8 8 A 78$ BISB2 #8. TMPFAB+7 : 1740 
4 AE 1 2 E MOVL #1, THPE AB+ 4 > 1741 
7B OA 2 MOVE #2, TMPFAB+31 > 1742 


nN 8 
PATWRT 16-Sep-1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 30 
v04-000 1 ~3007 138% 99:33:68 DISKSVMSMASTER:LPATCH, SRCJPATWRT.B32:1> (3 
5¢ AF OF ; PUSHAB TMPFAB 3 1744 
990000006 00 F CALLS #1, SYS$SMODIFY—— : 
G FF 0 D 4 MOVL RO, PATS$GL_ERRCODE : 
1 z 4 BLBS RO, 79$ : 
4 AE DD 0084A PUSHL TMPRAB+12 t 1747 
the 8? 39 pues tmeran + 1746 
000000006 EF of FB CALLS #1, GETFILDSC : 
0 DD A PUSHL RO ; 
01 DD C PUSHL #1 : 
000000006 8F DD 0085E PUSHL #PAT$_OPENIN : 
99000006 90 05 F CALLS 45 LIBSS]GNAL ; 
0006 =F 0200 8 B B 79S:  MOVW #512, PATSGL_NEWRAB+32 + 1751 
00000006 EF 14 AE D 4 MOVL our BUF _PTR, ~PATSGL_NEWRAB+36 : 1238 
04 ag p fs Ist 4 (NEW_IRSYM_PTR) : 175 
04 Ab 85 DO 00881 MOVL § MAX_VBN_WRITTEN, 4(NEW_IHSYM_PTR) 3 1755 
39 p 0883 80$: SIL WAX“ VBN-WRITTEN + 1756 
000000006 EF FF ay 9 0889 NOVAB ah GR9. PATSGL_NEWRAB+56 + 1758 
006D814A 8F DD 0893 81$ PUSHL ees 6522 + 1760 
000000006 00 01 FB 00899 CALLS #1, LIBSSIGNAL : 
000000006 EF 9F 008A0 82$ PUSHAB PATS$GL_NEWRAB + 1762 
000000006 00 1 FB OO8A6 CALLS #1, SYSSR ; 
00000000G_ EF 0 D0 O8AD MOVL RO, PATS$GL_ERRCOD ; 
5 000000006 EF : 08B4 BLBS § PATSGL_ERRTODE, 83$ + 1763 
E 000000006 EF 7D 0088 MOVQ  =PATSGL“NEWRAB+8, -(SP) > 1765 
000000006 EF 9F 008C PUSHAB PATSGL~NEWF AB F 
000000006 EF o1 FB OBce CALLS i, GETFILDSC F 
83 DD 00801 PUSHL # ; 
000000006 BF DD 00803 PUSHL #PAT$_READERR ; 
000000006 00 5 FB 00809 CALLS #5, LYBS$SIGNAL F 
28 AE 06 AB OD OBE 83$:  MOVL 4 (OLD_IHSYM_PTR), TMPRAB+16 : 1769 
2c AE BA O8E CLRW PRAB+ + 1770 
36 AE 0 O8E8 MOVB #2, TMPRAB+30 : 1771 
000000006 EF 14 AE dO OO8EC MOVL § OUT_BUF_PTR, PATSGL_NEWRAB+40 : 1775 
3cCOA 14 AE dO O08F4 MOVL OUT“BUF “PTR. TMPRAB? 36 : 1776 
0 5 t O8F9 BLBS R 5 : 1783 
0110 31 OO8FC gus: BRW ane 
OA ag 83 OBFE 5$:  TSTW  10(OLD_IHSYM_PTR) : 
F 02 BEQL = 8 : 
02 04 a8 0 9 CMPL 4(OLD_IHSYM_PTR) #2 : 1784 
e 908 BLEQ 84 3 
53 OA Ap C 0090A MOVZWL 10COLD_IHSYM_PTR) COUNTER : 1787 
0 4 0090E 86$:  BGTR & : 1788 
0089 31 0091 BRW 0$ : 
18 AF F 00913 87$: | PUSHAB TMPRAB : 1791 
900000006 00 : FB 00916 CALLS #1, SYSSGET ; 
000000006 EF 0 pO 0091D MOVL RO. PATSGL_ERRCOD ; 
1 000000006 EF E8 00924 LBS = PATSGL FRRCODE, 88$ : 179 
4 AE DD 00928 PUSHL  TMPRABT12 : 179 
4 AE BD 9 F PUSHL TMPRAB+& ; 
4 AF F 009 PUSHAB TMPFAB > 1794 
000000006 EF : FB 009 CALLS #1, GETFILDSC ; 
0 bd 00938 PUSHL RO : 
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VAX=11 $-32 V4.0-742 

Bho 93:85i8  P enemas fens 
PUSHL 
PUSHL SPATS.R ADERR 
CALLS a5, met. ve 
OVW Pe PATSGL _NEWRAB+34 
PUSHAB PATSGL 
CALLS #1, $ 
MOVL RO Bice ERRCODE 
BLBS § PATSGL_ERRTODE, 89$ 
MOVQ = PATSGLNEWRAB+8, -(SP) 
PUSHAB PATS$GL~NEWFAB 
CALLS #1, GETFILDSC 
PUSHL RO 
PUSHL #1 
PUSHL uPATS WRITEERR 
CALLS PP allies 
DECL 
BRW 
MOVZWL PATSGL_NEWRAB+34, RO 
MOVZWL PATSGL-NEWRAB+20, R1 
ADDL @ oR 
SUBW 08, PATSGL_NEWRAB+34 
MOVZWL RO, > _NEWRAB+34, RO 
BLEQ 91$ 
CMPW 3S sR, #512 
BGeEau «8918 
MOVCS #0, (SP), #255, RO, @OUT_BUF_PTR 
PUSHAB PATSGL NEWRAB 
CALLS i, SYSSPU 
MOVL SATScl. ERRCODE 
BLBS PArsct -ERRCODE 91$ 
MOVa  PAT$GL unABe6, -(SP) 
PUSHAB PATSGL- NEUE 
CALLS SeETr I ILDSC 
PUSHL 
PUSHL 
PUSHL fears THRETEERR 
CALL re, 
ADDL é, i 1Gpat PTR, RO 
ADDL PATSGL NEWRAB# 16, (RO) 
MOVL pAfsGL I 1HPPTR, 
TSTL (RO) 
BEQL 
MOVE #2, TMPRAB+30 
MOVL 32 {R0) , TMPRAB+16 
CLRW AB+20 
PUSHAB 
CALLS SYSSGET 
MOVL 40 Saiscr ERRCODE 
CPL PATSGL_ERRCODE, #98938 
BLBS §_ PATSGL FRRCODE, 94$ 
PUSHL  TMPRAB?12 
PUSHL TMPRAB+8 
PUSHAB TMPFAB 
CALLS #1, GETFILDSC 


CPATCH.SRCIPATWRT.B32-9 °° 
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PATWRT 16-5e Sep-1 VAX=-11 Bliss-32 V4.0-742 2 
04-000 eee rR ed eS ee ne 
0 DD OO0A68 PUSHL R0 ; 
1 DD OOA6A PUSHL # : 
000000006 8F DD OOA PUSHL #PAT$_READERR : 
000000006 00 5 FB A CALLS #5 LTB IGNAL : 
6 AE 94 00A79 94$: (CLRB  TMPR : 1852 
000000006 EF A AE g0 A7C MOVW IPRABS 4, PATS$GL_NEWRAB+34 + 185 
000000006 EF 9F O0A PUSHAB PATS$GL_NEWRAB + 1854 
000000006 00 1 FB OOA8A CALLS #1, SYS$PUT : 
000000006 FF 0 DO 00A91 MOVL PAT$GL_ERRCOD ; 
4 000000006 EF ; A98 BLBS PATSEL LERRTODE, 92$ + 1855 
re seseddube Er GP BR, og pArsetheurag'e” “ he 
000000006 EF i FB OOAA CALLS cETF itpse : 
0 dD OAB PUSHL 40 ; 
1 DD OOAB PUSHL #1 : 
000000006 8F DD 00AB7 PUSHL #PAT$_WRITEERR : 
000000006 00 5 FB OOABD CALLS #5, LYIBSSIGNAL : 
FF6C 31 OOAC4 BRW 928 + 1837 
SA 000000006 EF 09 OAC? 95$:  MOVL = PATSGL_TXTLHD, COM_TXT_PTR + 1867 
68 1 OACE 96$:  BEQL  100$ + 1868 
52 04 AA 9E OOAD MOVAB 4(R10), COM_PTR + 1871 
62 95 OOAD4 97$ TSTB © (COM_PTR) + 1872 
5B 13 OOAD6 BEQL 99$ ~ : 
000000006 EF 62 9B OOAD8 MOVZBW (COM_PTR), PATS$GL_NEWRAB+34 + 1875 
00000000G_ EF on Ad 9E OOADF OVAB (R23, PATSGL_NEWRAB+40 + 1876 
000000006 EF 9F OOAE7 PUSHAB PATSGL NEW RAB + 1877 
000000006 00 1 FB OOAED CALLS #1, SYSSP ; 
00000000G_ EF 0 00 AFA MOVL RO, Shiscl. ERRCODE ; 
5 000000006 EF E AF BLBS § PATSGL_ERRTODE, 98S : 1878 
E 00000000G EF 7D 00B0 MOVa _— PAT$GL ~NEWRAB #8 -(SP) : 1880 
000000006 EF 9F 00B0 PUSHAB Par T$GL~ : 
000000006 EF gi FB OOBOF CALLS cETF itpee : 
0 DD 00816 PUSHL 40 : 
01 DD 0081 PUSHL #1 : 
000000006 8F DD OBIA PUSHL PATS THRE TEERR : 
000000006 00 05 FB 00B 9 CALLS BSSIG NAL : 
50 $2 9A 00827 98$:  MOVZBL oath > 1881 
50 52 CO OOB2A ADDL2 COM m BTR. “— : 
52 01 AO 9E 00B2D MOVAB (RO), COM_PTR ; 
Al 11 00B31 BRB 97$ : 1872 
SA 6A DO 00B33 99S: MOVL (COM_TXT_PTR), COM_TXT_PTR : 188 
96 11 008 BRB 96$ ~ > 1868 
51 000000006 FF 9A 00B38 100$: MOVZBL PATSGB_ECOLVL, R1 + 1894 
4 1 0B F BEQL  102$ ; 
50 E 00 00841 MOVL NEW. IHPAT_PTR, ECO_LEVEL_PTR : 1897 
1 D7 00844 DECL =R : 1898 
00 $0 1 € OB46 BBSS 1, (ECO _LEVEL_PTR), 101$ ; 
0 000000006 EF DO 00B4A 101$:  MOVL Patscr LAPPTR. “ECO Pra PTR : 1899 
00 60 1 €2 00851 BBSS RI, (ECOL s > 19 
000000006 EF 1 DO 00855 1028: mov. #1. P até NEW AB :1 
000000006 _ ‘EF 9 AE 0200 F AS 00B ¢ MULW3 #512, NUM ADR BLKS, Peis NEWRAB+34 : 190 
000000006 EF 1 AE BO MOVL. NEW_f[HD_PTR, PATSGL _ NEWRAB?4 : 1904 
000000006. EF 02 BA BG BICB2 #2, PATSGL_NEWRAB+ + 1910 
000000006 EF 9F 00B76 SHAB PATSGL_N : 1911 
900000006 00 1 Ff B/C CALLS #1, SYSSWRITE F 
00 6 gE 0 D Bg MOVL RO. PATSGL ERRCODE : 
5 000000006 EF €E8 OOBBA BLBS PATSGL_ERRTODE, 1038 + 1912 


D _ 

PATWRT e 4 VAX-11 Bliss-32 V4.0-742 3 
04-000 ee ets AR oe eS et 
7E 000000006 EF 7D 0089 MOVQ _—- PATSGL_NEWRAB+8, -(SP) 3 19146 

Mauttdiitts F OF 00B9 PUSHAB PATSGL-NEWFAB : 

000000006 EF 1 FB 00B9 CALLS #1, GETFILDSC ; 

0 DD OOBA USHL ; 

1 DD OOBA PUSHL # : 

000000006 8F DD O0BA9 PUSHL #PAT$_WRITEERR : 

000000006 00 5 Fe BAF CALLS #5 LTBSSIGNAL ; 
000000006 EF ? BB6 103$: CLRB  PATS$GB + 1915 
900000006 EF 8 BBC BISB2 #8, Par 6  NEWFABS7 + 1920 
90000006 EF p BC MOVL #1. PATSGL-NEWFAB+24 + 1921 
000000006 EF 1 BCA MOVE #1. PATSGL~NEWFAB+31 : 19 2 
000000006 EF 9F Bb PUSHAB PATSGL AB + 192 

000000006 00 1 FB 00BD CALLS #1, SYSSMODIFY : 

000000006 EE : D OBDE MOVL RO, PATSGL_ERRCODE F 
6 E OBE BLBS =iR 4 > 1924 
000000006 gf DD 00BES PUSHL PATSGL_NEWRAB+12 + 1927 

0 DD OBEE PUSHL : 
000000006 EF 9F OOBF PUSHAB PATSGB _NEWNAME + 1926 

7E 000000006 EF 9A OOBF6 MOVZBL PATSGL“NEWNBK+3, -(SP) : 

9 DD OOBFD PUSHL R ; 

0 DD OOBFF PUSHL ; 

006D819C 8F DD 00C01 PUSHL 604 : 

000000006 00 07 FB 0c07 CALLS #7, LIBS$SIGNAL ; 
000000006 EF 9F 99¢ — 104$: PUSHAB PATSGL_NE + 1933 

000000006 00 1 FB 00C14 CALLS #1, SYSS$C F 

000000006 EF 0 00 00C1 MOVL RO. PAT$GL_ERRCODE : 
7 000000006 EF E 0¢ BLBS = PATSGL “ERREODE 105$ + 1934 
E 000000006 EF 7D 00C MOVa = PATS$GL~ UFABSS, (SP) : 1936 

C0000000G + EF 9F 00C30 PUSHAB PATSGL- EUEAB ; 

000000006 EF 1 FB oC CALLS CETF I ILDSC : 

0 DD 00C3D PUSHL 4 : 

01 DD 00C3F PUSHL #1 : 

000000006 8F DD 00C41 PUSHL PATS CLOSEOUT : 

000000006 00 05 FB soca CALLS LTB$SIG : 
000000006 EF 08 8A aid 1058: BICB2. #8, PATSGL_FLAGS : 1938 
SC 0 AE OOF OC97 106$: PUSHAB TMPFAB + 1943 

000000006 00 Q1 FB OOC5A CALLS #1, SYSSCLOSE : 

000000006: EF 0 DO 00661 MOVL RO, PATS$GL_ERRCODE : 
21 000000006 EF €8 00C68 BLBS PATSGL tee snrme 107$ > 1944 
68 AE ODD OC6F PUSHL > 1946 

68 AE DD 00C PUSHL THF ABS ; 

54 AE OF 00C7 PUSHAB TMPFAB : 

000000006 EF 1 FB O00C7 CALLS #1, GETFILDSC : 

0 DD OOC7F PUSHL RO’ : 

1 DD 00¢81 PUSHL #1 : 

000000006 8F DD oC 3 PUSHL #PAT$_CLOSEIN ; 

000000006 00 5 FB 00C89 CALLS #5, LIBSSIGNAL : 
04 00€90 107$: RET + 1949 


; Routine Size: 3217 bytes, Routine Base: _PATSCODE + 0000 
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16-5¢ -1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 34 
GET_IMAGE_BLOCK == read block from input image 1 ~3007 138% 99:25:28 DISKSVMSMASTER: LPATCH. SRCJPATWRT.B32:1> (6) 
13 9 1 ZSBTTL ‘GET IMAGE BLOCK == read block from input image’ 
! } ROUTINE GET_TMAGE BLOCK (VBN, BUFFER, BYTES_TO_READ) = 
13 § 1/ 
1954 1 ! Functional Description: 
1955 1! This routine is called to read a block from the input image file, 
13 § ; } which is assumed to be open. 
19 § 1 | FORMAL PARAMETERS 
1989 1! VBN = virtual block number of desired block 
1309 : BUFFER = Address of buffer pointer to fill in with the address of our 
. u er. 
1396 : } BYTES_TO_READ = number of bytes to read 
1964 1 | ROUTINE VALUE 
1965 1! $Q10W status 
3h | 
1968 BEGIN 
1990 LOCAL 
1971 STATUS, 
1376 10SB : VECTOR (4,WORD); 
1974 ! Read in the desired block to the static buffer. 
3 8 
1359 STATUS = $Q]0W ( EFN = 7, 
1978 CHAN = .PATS$GL_CHANUM, 
1979 FUNC = I0$_REABVBLK, 
1980 10SB = 10S8 
1981 Pl = .BUFFER 
198¢ Pe = {BYTES_fO_READ, 
13e7 P35 = .VBN ); 
4 IF NOT .STATUS 
1987 RETURN (.STATUS); 
bs 4 Point the caller's pointer at our buffer. Then return the $Q10W status 
1991 RETURN (.10SBL0)); 
1998 END; 


-EXTRN SYS$Q10W 
0000 00000 GET_IMAGE BLOCK: 
GOR 


. save nothing 
5E 98 ce 0 SUBL #8, SP 
— 7C CLRO. 0 = ( §P) 
7E 04 CLRL -(SP) 
ge AC bb PUSHL VBN 
7E 8 ac 7D 6 MOVQ BUFFER, -(SP) 
7E 7C CLROQ (SP) 


1951 
1983 
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04-000 GET_IMAGE BLOCK == read block from input image Joesene198¢ $o;85;88 —- DERKSUMGHASTERSCEATON SacIPATWRT.B3203%° (a> 


20 9F 0001 SHAB 10SB : 

DD 0001 PUSHL #4 : 

000000006 f DD 0001 PUSHL PATSGL_ CHANUM ; 

DD 00010 PUSHL # ; 

000000006 f FB 1F CALLS #12 sys$a10w : 
$ BLBC = STATUS + 1985 
6— 3¢ MOVZWL 10SB, ‘— + 1991 
4 C 1$: RET + 1993 


; Routine Size: 45 bytes, Routine Base: _PATSCODE + 0C91 
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1b-se “1984 00:52: VAX=11 BLiss-32_V4.0-742 p 6 
urite.binary <= Urite o binary file after patch Le-tepeione Vessscde || NaecbUMGhAsteRcceaion cacaparuar.es2™ ¥4 


S 
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; 1101 1 1 ZSBTTL ‘write binary -- Write a binary file after patching it /ABSOLUTE' 

3 11 § 1995 1 ROUTINE ite Bineee’ NOVALUE = < . : 

z i33p 

: 1 5 ! Functional Description: 

: 11 1 / This routine writes the patched file as a binary data file. The 

3 11 1} output file is gregred/opened (or attempts to...) uging the same 

3 11 § 1! attributes of the file being patched, fa Ling that it will attempt 

; 1339 ! } to create the file contiguous best try (failing this its an error). 

; 1148 . 2% Once the oureus file is established we traverse the ISE Ules to 

39111 2% determine which sections must be copied from the orignal file to 

5 Wie : the output file and which are already mapped into virtual memory. 

; 1116 09 i Side Effects: 

: 1118 joe Upon exit the the ISE List remains intact, however, the MAPVST/END 

3111 \§ 3 elements are set to zero and the sections are unmapped. The output 

; 1120 Bt 7s file has been written and S$CLOSEd. 

We BRL. 

11 1 BEGIN 

3 11246 13 

3 1125 O18 LITERAL 

3; 11 $ 01 MAX_TRANSFER = %X"FEOO'; ! Maximum number of bytes rms can write 
3 1 . 5 Y 8c. ! per transfer. 

: 1129 0 Q BYTE_COUNT : WORD ' Number of bytes per transfer. 
711 0 ISD_PTR : REF BLOCKC, BYTE), i Pointer to current 

3 1131 024 ISE_PTR : REF BLOCK(,BYTEJ, ! Pointer to current ISE 

3 11 ; 025 REMAINDER ' Number of byte remaining to be transfered. 
3 11 0 § TRANSFER fount, ! Number of bytes transfered. 
311 5 SECTION SIZE, ' Size of this section in bytes. 
3 1 5 $ START_VA; ! Starting virtual address of the transfer 
: i ? {Fg PATOGL FLAGS CPATS$S_VOLUME J ! The VOLUME qualifier specifies the RVN 
:11 BEGIN 

3; 1140 0 i PATSGL_NEWXABALLCXABSW_VOL] = .PATSGW_IMGVOL; ' The Relative Volume Number 

3 1141 0 PATSGL_NEWXABALLCXABSB_ALN) = XABSC_LEN; ! To enable XAB$W_VOL 

: 1386 035 END; 

: 1144 a IF | ,PATSGL_FLAGS CPAT$S_NEW_VERSION) 

; 1146 039 BEGIN 

3: 114 0 4 IF (.NUM_OF UPDATES EQL 0) ! Check number of updates done 

3 bbe | 1 3 THEN 

> 1150 j 4 oe. 

3 1151 4 4 ! Create the oytput file. Try to make it a contiguous file if 

3 1136 5 4 ! the input file was contiguous, i.e., first try a create with 

: Ne § 4 ! the same attributes. If the file cannot be created with the same 

3 1154 4 ' attributes, then attonet a second try with contiguous-best-try. If 

3 1 3e2 3 ? } this succeeds, then print an informational message. 

: 1133 $66 4 PATSGL_NEWXABALLCXABS$L_ALQ) = .PATSGL_OLDFABCFABSL_ALQ]; ! Allocation quantity. 
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write binary -- Write a binary file after patch 13-$88-1382 99:35:28 bh SksvM 
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Report file being written. 
iF ,PATSGL FLAGS CPAT$S_NEW_ VERSION) 
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Bliss-32 V4.0-742 Page 37 
SMHASTER: CPATCH.SRCIPATWRT.B32; 1° BF 
PATSGL_NEWXABALL(XABSV_CTG) = .PATSGL_OLDFABLFABSV_CTG); ! Contiguous. 
PATSGL_NEWXABA t PeABsy- $j = “PATSat OLDE tf 3V-Gas 3 ' Contiguous Gest Try. 
PATSGL_NEWF pABsS . NS} = .PATSGL_OCDNBK [NAM$B_TYPE); ' File type size. 
PATSGL_NEWFAB LFABSL_DNA] = .PATSGL_OLDNBK [NAMSL_TYPE); ! File type address. 
TSGL_NEWFAB [LFABSW_LMRS)] = .PATSGL_OLDFAB [FABSW_MRSJ; ! Maximum record size. 
TSGL_NEWFAB LFABSB_RAT) = .PATSGL_OLDFAB [FABSB_RATJ; ! Record attributes. 
SGL_NEWFAB [LFABSB_RFM) = .PATSGL_OLDFAB LFABSB_RFM); ! Record format. 
PATSGL_NEWRAB [RAB$V_B10) = TRUE; : Perform Block 10. 
PATSGL_NEWRAB CRABSV_TPTJ = TRUE; ! Truncate the file after each write 


cn” (PATSGL_ERRCODE=S$CREATE (F AB=PATSGL_NEWF AB) ) 


BEGIN ! Attempt a contiguous best try 
PATSGL_NEWXABALLCXABSV 

PATSGL poncops = SCREA 

IF .PATSGL_ERRCODE 


SIGNAL (PATS_NONCONTIG+MSGSK_INFO,.PATSGL_ERRCODE, .PATSGL_NEWRABCRABSL_STVJ); 


CBT) = TRUE: 
TE(FAB=PAT GL_NEWF AB) ; 


END; 
Pa 
PATSGL_ERRCODE=SOPEN(F AB=PATSGL_NEWF AB) ; ! Open output file 
IF NOT .PATSGL_ERRCODE : success on open? 
nee SIGNAL (PAT$_OPENOUT,1,GETFILDSC(PATSGL_NEWFAB) ,.PATSGL_NEWF ABLFABSL_STSJ,.PATSGL_NEWRABCRABSL_STV)) 
BEGIN 
PATSGL_ERRCODE=S$CONNECT (RAB=PATSGL_NEWRAB) ; ! Connect input file 
IF NOT .PATSGL_ERRCODE ! Success on connect? 


N 
SIGNAL (PAT$_OPENOUT,1 GETFILDSC(PATSGL NEW AB) 
.PATSGL_NEWRABLRABSL_STSJ,.PATSGC_NEWRABLRABSL_STVJ) ! REPORT FAILURE 


NUM or peares = 1; ! Set indicator for already created 
PATSGL_FLAGS PAT$S_OUTPUT) = 1; i Set open file flag 
END; 
END; 


SIGNAL (PATS_WRTFIL+MSGSK_INFO, 2, .PATSGL_NEWNBKCNAMSB_RSLJ, PATSGB_NEWNAME) 


BEGIN 
LOCAL 
OLD rite : SBBLOCK COSC$C_S_ BLN); 
OLD_FILE EDSCSW_LENGTH] = .PATSGL-OCDNBKCNAMSB_RSLI; 
OLD FILE CDSCSA 9° pe = PATSGB_OLDNAME ; 
SLGRAL (PATS OVERLAY, - OLD_FILE); 
ISE_PTR=CHSPTR(.PATSGL_ISELHD,0); ! Point to first ise 
WHITE o ASE OTR NEQA ' Loop until ise's are exhausted 


hah ak oh a el 
8 Ot O08 08 0 O28 bt Ot -_ 


C 
C 
C 
C 
C 
C 
C 
Cc 
Cc 
C 
C 
C 
C 


Baebaada a 
wo pe te es es 1 4 
2wDwnwwwwxn27»D 


ISE_PTR = .ISE_PTRCISESL_NXTISE); 
END; ! of WHILE 
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PATWRT b-se -1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 38 
v04-000 write_binary -- Write a binary file after patch 730071382 99:35:28 DISKSVMSMASTER: PATCH, SRCIPATWRT.B32:1> Pa 
; } } 5 ISD_PTR = CHSPTR(.ISE_PTR, ISESC_SIZE); ! Find old isd address 
: 1 i 11 IF_.PATSGL_FLAGS CPATS$S_NEW_VERSIONJ 
3 i 13 Mi) i sg ! We're creating a new patched copy of the f 
5 1220 118 4 IF .ISE_PTRCISESL_MAPVEND] EQLA 0 ! If the image section is not mapped, then m 
3 ; 1 ie : THEN PATSCREMAP (.I1SE_PTR); 
51 4 138 4 START_VA = piSe_fTACISES, MAPVST]); ! Set the gtgrting virtual address of the se 
; : 2 13 ? SECTION_SIZE = 7ISE_PTR CISESL_MAPVEND] - .ISE_PTR CISESL_MAPVSTJ + 1; 
:1 8 115 * IF_ .SECTION SIZE GTR MAX_TRANSFER : if we can't write the section as a whole, 
3 7 120 4 THEN BYTE_COUNT = MAX TRANSFER ! it up into pieces that RMS can deal with a 
; : ! 1 ? ELSE BYTE_COUNT = .SECTION_SIZE; ! transfer it one chunk at a time. 
: 1230 1 ‘ 4 144 
3 ! 1 } : ? Now write out the section (in whole or parts...) 
:1 : 126 4 TRANSFER COUNT = 0; 
3 1 1 & REMAINDER = 0; 
; } 5 : 8 4 me ae LAAT OA LSSA .ISE_PTR CISESL_MAPVEND] DO ! Transfer the entire section. 
:1 150 Sb ge here t tyr rede t = .BYTE COUNT; ! Set the number of byte to transfer. 
: 1238 131 PATSGL_NEWRABLRABSL_RBFJ = .START_VA; ! Set the starting address of the buffer. 
: 1239 1 ¢ g IF NOT (PATSGL ERRCODE = $WRITE(RAB=PATSGL_NEWRAB)) ! Write it to the new file. 
3; 1240 1 THEN SIGNALTPATS_WRITEERR ge rr ane CTPATSGL_NEWFAB) , 
3 1241 134 ; ATSGL_NEWRABERAB L_STS 
: 126 i 5 .PATSGL_NEWRABLRABSL_STVJ); 
: 1244 1 5 5 TRANSFER_COUNT = .TRANSFER_COUNT + .BYTE_COUNT; ! Update the transfer count 
3 : °F ; : é START_VA = .START_VA + .BYTE_COUNT; ! and the starting address of the buffer. 
: 1247 140 6 IF ((REMAINDER = .SECTION_SIZE - .TRANSFER_COUNT) LEQ MAX_TRANSFER) (ante: 
3: 1248 141 6 AND (.REMAINDER GTR ! If there's still something to transfer, 
5 ; r4 146 : THEN BYTE_COUNT = .REMAINDER; ! modifiy the byte (once its less than max!) 
: 1251 144 4 enp END: ! of WHILE 
3 125 146 3 LSE ' We're patching the file in place, only upd 
3: 1254 14 IF .ISE_PTR CISESL_MAPVEND) NEQ 0 ! those pensions affected. 
: 1255 148 4 THEN IF-NOT (PATSGC_ERRCODE = SUPDSEC (INADR = ISE_PTR CISESL_MAPVSTJ)) 
3 ! 28 133 . THEN SIGNAL (PATS_SYSERROR, 0, .PATSGL_ERRCODE); 
:1 33 151 i Conserve virtual address space! Once were done writing a section, release the 
; } 14 } § } space back to the process for future use. 
; 1261 134 IF, ISE_PTR CISESL_MAPVEND) NEQ 0 ' 
71 8 136 4 BEGIN 
3: 1264 1 5 IF NOT (PATSGL_ERRCODE = SDELTVA (INADR = ISE_PTR CISESL_MAPVST))) 
3: 1265 1 3 & EN gIGNAL (PATS_SYSERROR, 0, .PATSGL ew te 
; 1266 159 4 ISE_PTR CISESL_MAPVST) ="ISE_PTR CISESL_MAPVEND) = 0; 
31 160 END; 
3; 1 161 
| 168 
:1 182 


NNAAO 


~OoOe 


PATWRT b-se 4 VAX-11 Bliss-32 V4.0-742 9 
v04-000 write _binary -- Write a binary file after patch ~300 71382 99: 33: 4 DISKSVMSMASTER: CPATCH. SRCIJPATWRT.B32; ryee ra 
3; 127 165 
:1 it 1 § 1o4 
3: 1 ie 1 ' Now close the output {nage file. This is done here so that the _update” 
: : : 5 ! command can rewrite the file if update is specified more than once 
:1 i i$ IF .PATSGL_FLAGS CPATSS_NEW_VERSION] 
; ' 8 4 THEN 
: 1280 158 AH LERRCODE = aachOSE (FAB=PATSGL _NEWFAB); 
> 1281 174 IF NOT” -PATSGL 
: 128 175 THEN NALTBAT choseouT GETFILDSC(PATSGL_NEWFAB) , -PATSGL_NEWFABLFABSL_STS], .PATSGL_NEWFAB 
34 176 ELSE SA Sset _FLAGS CPATSS butbus = 0; 
:1 17 END; 
3 1285 178 
3; 1286 179 END; ! of ROUTINE write_binary 
.EXTRN SYSSUPDSEC, SYSSDELTVA 
OFFC 00000 WRITE_BINARY: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1995 
58 000000006 EF 9E 99002 MOVAB PATSGL_NEWFAB, R11 ; 
A 000000006 EF 9€ 000 MOV PATSGL-ERRCODE, R10 ; 
SE 8 C 0919 SUBL 48, SP ; 
12 000000006 EF E1 0001 BBC PATSGL_FLAGS, 1$ > 203 
000000006 EF 000000006 ai 80 0018 MOVW Pats scu ergo ge PATS$GL_NEWXABALL+10 : 203 
000000006 _ ‘EF 2 9 6 6 MOVB T36 L_NEWXABALL+9 + 2034 
000000006 cf 9 6 02D 1$ TSTB eet eer AGS : 2037 
3 19 000 BLSS  2$ ; 
00FD 31 000 BRW 10$ F 
00000000° ai D3 0038 2$ TSTL | NUM_OF_UPDATES : 2040 
3 13 000 BEQL 6-3 F 
0094 31 0004 BRW 4$ ; 
000000006 Ef 000000006 EF 00 004 3$: MOVL § PATSGL_OLDFAB+16, PATSGL a WXABALL+16 : 2050 
50 000000006 _ EF 1 4 EF 00 aE EXTZV #4, a; PAT GL_OLDFAB + 2051 
F 07 Q FO 0005 INSV RO. # PATSGL NEUXABALL +8 ; 
0 000000006 EF o1 : EF 00060 EXTZV #5, #1. eat GL_OLDFAB+6, R : 2052 
000000006 EF 1 5 oF 069 RO. #5. #1, PATS$GL_NEWXABALL ; 
5 AB 90000006 EF 9 2 MOVB § PATSGL_OLDNBK+60, PATSGL_NEWFAB+S > 2053 
0 AB 000000006 EF DO OO07A MOVL PATSGL~OLDNBK¢ “ PATSGL NEVE AB +48 : 2054 
6 AB 6 6 G EF B 2 MOVW  PATSGL-OLDFAB+54, : 2055 
it AB G EF B A MOVW  PATSGL-OLDFAB+30, PATSaL- “NEUF ABS $ : 2056 
000000006 EF F A 2 BISW2 #2050, “PATSGL_NEWRAB+4 ; 2058 
B DD PUSHL ; 2061 
000000006 00 1 F 9D CALLS i, SYSSCREATE F 
6A D AG MOVL > PATSGL_ERRCODE ; 
9 ; A7 BLBS ; 2 
000000006 EF AA BISB2 #36, PATSGL_NEWXABALL+8 : 2064 
B DD 0008 PUSHL R ; 5 
000000006 00 1 F B CALLS #1, SYSSCREATE : 
A 0 D BA MOVL RO, PATS$GL_ERRCOD ; 
6 6A E B BLBC parse L ERRCODE 6 ; 2066 
000000006 EF Odd 000C PUSHL WRAB+ Et ; 
A DD 000C¢ PUSHL PAT =BRRCODE ; 
006D82A3. BF SC#DD -«000C PUSHL atl ; 
000000006 00 3 FB OOOCE CALLS @ PTSSSIGNAL : 


k 9 
16-Sep-1984 00:52: AX-11 Bliss-32_V4.0-742 P 
write binary -- Write a binary file after patch 12-808-1 383 99:35:28 DISKSVMSMASTER CPATCH.SRCIPAPWRT.B32:1> 3 
€ 11 0000 BRB 5$ : 204 
DD 00007 4$ PUSHL R11 ; $045 
000000006 00 ‘ F D CALLS #1, SYSSOPEN F 
A D E MOVL RO, PATSGL ERRCODE ; 
B 6A E E3 5$: BLBS § PATSGL_ERRCODE + 2074 
000000996 EF DD OO0ES 6$: PUSHL PATSGL-NEWRAB+{2 + 2075 
AB DD EC PUSHL  PATSGL~NEWFAB+8 : 
000000006 EF oF oor: 78 Or eHAB  PATSGL_NEURAB : 2078 
000000006 00 i F F7 CALLS #1, SYSSCONNECT ; 
sh PE BRir UE Bane gC gore 
E 000000006 FF 5 1 MOVO § PATSGL“NEWRAB+8, -(SP) + 2082 
B DD 00108 8$: PUSHL + 2081 
000000006 EF or FB 0010D CALLS #1, GETFILDSC : 
0 OD 00114 PUSHL : 
000000006 et OP bolls PUSrt SPATS. OPENOUT : 
000000006 00 5 FB a8 CALLS ae LTB$S1GNAL : 
00000000' EF of Ole7 98: MOVL_ #1, NUM_OF_UPDATES > 2085 
000000006 EF ) 01 E BISB2 #8. PATSGL~FLAGS + 2086 
000000006 FF 93 ot 3 10$: STB PATSGL_FLAGS + 2094 
00000006 EF 9F 001 PUSHAB PATS$GB_NEWNAME + 2095 
7E 000000006 EF 9A 0148 MOVZBL PATSGL“NEWNBK+3, -(SP) : . 
2 OD OO14A PUSHL # ; 
006D82¢3 8F DD 0014 PUSHL #7176899 ; 
000000006 00 04 FB 0015 CALLS #4 LIB$SIGNAL : 
6E 000000006 EF 98 O56 11$:  MOVZBW PATSGL_OLDNBK+3, OLD_FILE + 2100 
04 AE 000000006 FF 9E 0016 MOVAB PATSGB-OLDNAME, OLD_FILE+4 + 2101 
E DD 0016A PUSHL SP + 2102 
07 DD 0016C PUSHL #1 : 
000000006 BF DD 16e PUSHL #PAT$_OVERLAY : 
000000006 09 3 FB 00174 CALLS #3, LIBS$SIGNAL : 
52 000000006 EF D0 00178 128: MOVL § PATSGL_ISELHD. ISE_PTR : 2105 
3 182 13$:  BNEG 14$ + 2106 
010F 1 BRW $ : 
54 14 Ag E 00187 14$: § MOVAB (R2),_ ISD_PTR : 108 
5 10 Ad 9€E 001 MOVAB 6(1SE_pTR) RS : 211 
000000006 i ? F isi Pal GLFLAGS : 2110 
00 : 31 001 ; BRW 22s ; 
b 19A 15$: —TSTL R5) > 2113 
19¢ BNEQ 16$ F 
DD 001 PUSHL . ISE_PrTR > 2114 
000000006 EE FB OOTA CALLS #1. PATSCREMAP : 
8 C A2 DO OO1A7 16$: MOVL Ig tise PTR), START_VA : 3116 
. BW Se AER AS JRADSECEET at o 
L N " F 
OOOOFEOO «BF , 1B4 cHPL TION SIZE nits, 2119 
56 FEOO e3 1B MOVW  #-512, BYTE_COUNT > 2120 
1c BRB 183 : 
56 BO 001C4 17$:  MOVW SECTION SIZE, BYTE_COUNT : 31 1 
D4 OO1C7 18$: CLRL —- TRANSFER_COUNT > 2126 


9 
PATWRT 18-56 -1984 252: VAX-11 Bliss-32 V4.0-742 Page 41 
v04-000 write_binary -- Write a binary file after patch 1 $0071 38% 99:33:38 DISKSVMSMASTER:CPATCH. SRCIPATWRT.B32: 1° (7) 
7 04 001¢9 CLRL = REMAINDER : 2127 
65 1 001¢B 198: CMPL TART_VA, (RS) : $138 
oe en ; 
900000006 dij 6 80 103 208 MOVW §BYTE_COUNT, PATS$GL_NEWRAB+34 t 2130 
G EF p 1DA MOVL _ START_VA, PATSGL_NEWRAB+40 + 2131 
000000006 EF 9F 31 PUSHAB PATS$GC_NEWRAB + 2132 
000000006 00 1 FB OOTE CALLS #1, SYSSWRITE ; 
HI 0 09 TEE HOVE RO, PATSGL_ERRCODE : 
E 000000006 EF 5D 1F4 MOVQ PATSGL_NEWRAB+8, -(SP) : 3134 
B DD 001FB PUSHL + 2133 
000000006 EF } FB IED CALLS a, GETFILDSC : 
1 OD Og PUSHL #1 : 
000000006 8F DD 0 PUSHL #PAT$_WRITEERR : 
000000006 00 5 FB E CALLS #5, LYBSSIGNA F 
26 25 26 0318 218: ROVEML BYTE COUNT RD ar ‘hed 
50 26 5 18 MOVZWL BYTE_COUNT, RO > 2138 
38 5 6 0 3 Ls RO, START_VA ; 
7 29 C3 00 SUBL3 TRANSFER_COUNT, SECTION_SIZE, REMAINDER + 2140 
QOOOFEOO BF 37 Di 0 5 CPL REMAINDER, #65024 : 
3 D3 0 Ist REMAINDER + 2141 
56 57 BO 00 MOVW REMAINDER, BYTE_COUNT + 2142 
94 11 00 BRB 19$ : 2128 
$5 03 a2 i 22 TST (R3) + 2147 
$2 7C 00238 CLRQ = =< SP) > 2148 
7E 7¢ 00 D CLRQ  =(SP) ; 
7E 7C 0023F CLRQ = = (SP) F 
7E D4 00241 CLRL = = (SP) : 
000000006 00 - hs Pe 09 te CALLS” } TSE OS UPDSEC : 
6A 20 00 0 4D HOVE RO, PATS$GL_ERRCODE : 
gA DD 00 PUSHL PATS$GL_ERRCODE > 2149 
E D4 0 CLRL.  =(SP) ; 
000000006 00 a 85 pe D CALLS #8. tTeseicnec : 
64 238: isi &R3) + 2154 
CLRO 30s = (SP) : 2157 
000000006 00 = 4 a i CALS” } SE SOE TVA : 
6A ; 00 $ MOVL > PATSGL_ERRCODE : 
11 E 77 BLBS 24$ ; 
6A DD OO27A PUSHL PATSGL_ERRCODE : 2158 
000000006 oF BF BOSzE Shel, SPATS. SYSERROR : 
F CALLS #3, LIBSSIGNAL : 
peeeenees . #0 ge be 24$ CLARE (RS) : 2159 
so BS BRERR ase, aout LTLESFIRS seer ee 
FEEC Bf "  BRW 14 o.oo : 3 6 


m9 
PATWRT 16-Sep-1984 VAX=11 Bliss-32 V4.0-742 

v04-000 write binary -- Write a binary file after patch 14-$ Sep 138% 99: 38: ¢ DiSKSVMSMASTER: CPATCH.SRCJPATWRT. B32, 79 © 3 
000000006 EF 95 26$:  TSTB PATSGL_FLAGS : 2170 
et a Lars 

series eC ; 
1F 6A 5 AA BLBS § PATSGL_ERRCODE, 27$ ; 3174 
7E 08 AB £0 AD mova, PATSer “NEWFAB+8, ort sp) + 2175 

000000006 EF 1 FB B% CALLS #1, GETFILDSC : 

FBO oOSee put | i : 

000000006 8F DD 0028 PUSHL #PAT$_CLOSEOUT ; 

000000006 00 5 FB ca CALLS #5, LIBSSIGNAL : 
000000006 EF 08 BK 09 tc 37s: BICB2 #8, PATSGL_FLAGS : 3176 
4 80 D RET : 2179 


; Routine Size: 724 bytes, Routine Base: _PATSCODE + OCBE 


: 1287 180 1 
; 1¢88 181 1 END ! of MODULE patwrt 
3; 1289 182 0 ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
3 Name Bytes Attributes 
; _PATSOWN 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; ~PATSPLIT 148 NOVEC, wont RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
3 =PATSC CODE ie | NOVEC.NOWRT, RD. EXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 ABS . NOVEC, ‘NOWRT, “NORD | NOEXE, NOSHR, LCL. - CON,NOPIC,ALIGN(O) 
3 Library Statistics 
PR a ee ea ee - Symbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 104 0 1000 00:01.8 
; COMMAND QUALIFIERS 


: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/VARIANT:1/LIS=LIS$:PATWRT/OBJ=OBJ$:PATWRT MSRC$:PATWRT/UPDATE=(ENHS:PATWRT) 
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write_binary -- Write a binary file after patch 1 1228 
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